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ABSTRACT 


A Closed-Loop Optimal Neural-Network Controller 

to 

Optimise Rotorcraft Aeromechanical Behaviour 

by 

Jane Anne Leyland, PhD/AMES 
NASA-Ames Research Centre 
Moffett Field, California 

Previous development and design of closed-loop controllers to optimise rotorcraft 
aeromechanical behaviour focused on the simple “standard” closed-loop controller 
which employs an actively updated linear plant model (i.e., a single system matrix) to 
model the rotorcraft and simplified pseudo-optimal methods to determine the control. 
A recent development was the use of modem constrained optimisation techniques 
rather than the commonly used pseudo-optimal methods to determine the optimal 
control subject to constraints for a linear plant model. One promising controller 
scheme which is of interest to analysts at this time utilises a “neural-network” 
scheme to provide a general non-linear model the plant. Accordingly a closed-loop 
optimal neural-network controller was developed which employs a general non-linear 
neural-network function rather than a linear function to model the plant. Modem 
constrained optimisation methods are used to determine/update the constants in the 
neural-network plant model as well as in the determination of the optimal control 
vector. 


Current data is read, weighted, and added to a sliding data window. When the 
specified maximum data window length (i.e., the number of data sets allowed in the 
data window) is exceeded, the oldest data set is purged and the remaining data sets 
are re-weighted. This procedure provides at least four additional degrees-of-freedom 
in addition to the size and geometry of the neural-network itself with which to 
optimise the overall operation of the controller (e.g., the update of the non-linear 
neural-network plant model and the determination of the optimal control). These 
additional degrees-of-freedom are: 1. the maximum length of the sliding data 
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window, 2. the frequency of neural-network updates, 3. the weighting of the 
individual data sets within the sliding window, and 4. the maximum number of 
optimisation iterations used for the neural-network updates. 


Cases run to date indicate that the controller is operating as planned, but that 
the controller performance as measured by the rate of convergence of the 
neural-network parameters is slow. This is due to the fact that the determination 
of the neural-network parameters by minimisation of an error metric of the 
neural-network function values is an ill-posed problem with multiple solutions for 
these parameters. Elimination of multiple solutions with corresponding acceleration 
of convergence appears to be possible with the addition of a regularisation functional 
to the error metric performance index. 


1.0 INTRODUCTION 


Given the predicted growth in air transportation, the potential exists for significant 
market niches for rotary wing subsonic vehicles. Technological advances which 
optimise rotorcraft aeromechanical behaviour can contribute significantly to both their 
commercial and military development, acceptance, and sales. Examples of the 
optimisation of rotorcraft aeromechanical behaviour which are of interest include the 
minimisation of vibration and/or loads. The reduction of rotorcraft vibration and loads 
is an important means to extend the useful life of the vehicle and to improve its ride 
quality. Although vibration reduction can be accomplished by using passive dampers 
and/or tuned masses, active closed-loop control has the potential to reduce vibration 
and loads throughout a. wider flight regime whilst requiring less additional weight to 
the aircraft than that obtained by using passive methods. It is emphasised that the 
analysis described herein is applicable to all those rotorcraft aeromechanical 
behaviour optimisation problems for which the relationship between the harmonic 
control vector and the measurement vector can be adequately described by a 
neural-network model. 


Previous development and design of closed-loop controllers to optimise rotorcraft 
aeromechanical behaviour focused on the simple “standard” closed-loop controller 
which employs an actively updated linear plant model (i.e., a single system matrix) to 
model the rotorcraft and simplified pseudo-optimal methods to determine the control. 
A recent development (Reference 1 ) was the use of modem constrained optimisation 
techniques (References 2 through 8) rather than the commonly used pseudo-optimal 
methods to determine the optimal control subject to constraints for a linear plant 
model. One promising controller scheme which is of interest to analysts at this time 
utilises a “neural-network” scheme to provide a general non-linear model of the 
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plant. Accordingly a closed-loop optimal neural-network controller was developed 
which employs a general non-linear neural-network function rather than a linear 
function to model the plant. The modern constrained optimisation methods 
described in References 2 through 8 are used to determine/update the constants 
in the neural-network plant model and to determine the optimal control vector by 
employing the IMSL main driver routines DNCONF and/or DNCONG and their 
subroutines as described in Reference 9. 


Current data is read, weighted, and added to a sliding data window. When the 
specified maximum data window length (i.e., the number of data sets allowed in the 
data window) is exceeded, the oldest data set is purged and the remaining data sets 
are re-weighted. This procedure provides at least four additional degrees-of-freedom 
in addition to the size and geometry of the neural-network itself with which to 
optimise the overall operation of the controller (i.e., the update of the non-linear 
neural-network function plant model and the determination of the optimal control). 
These additional degrees-of-freedom are: 1 . the maximum length of the sliding data 
window, 2. the frequency of the neural-network updates, 3. the weighting of the 
individual data sets within the sliding window, and 4. the maximum number of 
optimisation iterations used for the neural-network updates. 
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2.0 TECHNICAL 


A typical general closed-loop controller which is the reference controller for this study 
is discussed first, noting the two forms of systems models which are of interest for 
rotorcraft aeromechanical behaviour problems. Next, the proposed optimal 
closed-loop neural-network (N 2 ) controller is presented. The analytic non-linear 
neural-network function f l2 (») or more specifically fi 1 >2 ,J ,K J \») when 

•'N * / N 

the neurone distribution (i.e., the number of nodes per layer) is defined, and an 
example geometrical schematic is presented for the 3-5-3-2 neural-network function 
jT3-5-3-2(^) several neural-network node filters are presented and the “sliding 
window” of data acquisition is explained. The optimisation method used to update 
the neural-network parameters and the control vector is discussed, and various 
sources of trajectory data are identified. The stand-alone optimal neural-network 
controller system which was developed during this study is described and the results 
to date of using this controller system are discussed. Lastly, conclusions and 
recommendations are presented. 
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2.1 General Closed-Loop Controller 


The general controller scheme assumes that the measured behaviour (i.e., the 
measurement state vector, the measurement vector, the Z-vector, etc.) of a physical 
system (i.e., the rotorcraft, the plant, etc.) can be completely controlled by means of 
an appropriate system control vector (i.e., the control vector, the 0-vector, etc.). A 
schematic representation of this fundamental relationship appears in the upper part 
of Figure 1. The general controller uses this relationship together with a 
mathematical model of it to estimate the control vector to be used in a future duty 
cycle which will satisfy some criteria. The relationship between the control vector, 
the mathematical model of the rotorcraft, and the measurement state vector is 
schematically shown in the lower part of Figure 1 . 


The general closed-loop controller (see Figure 2) is comprised of two parts: 1 ) the 
operating rotorcraft plant which generates the measurement vector for the currently 
specified control vector, and 2) the controller itself which estimates the control vector 
which will satisfy some criteria to be used in a future duty cycle. This latter function 
uses the mathematical model of the rotorcraft to estimate the new control vector. 
The parameters of the model can be updated during the trajectory if an appropriate 
update scheme is available. The new estimated control vector is then input to the 
operating rotorcraft to be used in a future duty cycle. This looping process is 
continued until completion of the last duty cycle when the operation of the controller 
is terminated. 
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2.1 .1 Systems Models of a Controlled Response 


Mathematical models of the control vector - operating rotorcraft - measurement 
vector relationship used in the general closed-loop controller to estimate the control 
vector can be conveniently placed into one of two categories: 1 ) fixed form system 
models, and 2) free-form system models. As these category names suggest, the 
fixed form models are rigid and not too flexible even though their parameters can 
sometimes be updated during controller operation, and consequently they might not 
be suitable for experimental applications. The free form system models are not rigid 
and can be quite flexible, and consequently they can be quite amenable to 
experimental applications. 


2.1 .1 .1 Fixed Form Systems Models 

The fixed form systems models have a rigid mathematical function form/shape. 
Although this form/shape might be adjusted or distorted by appropriate selection of 
the values of the model parameters either initially or during the trajectory by a 
parameter identification process, the basic function shape is what it is and cannot be 
substantially changed by the model parameters. Examples of fixed form models 
include: 


2 = T9 + Zo 
Z = 00 t A 2 + A0 + z o 
Z = BTanh(AO) + Z 0 


Linear (Simplistic) 


Non-Linear (Quadratic) 


Non-Linear (Hyperbolic Tangent) 
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2.1. 1.2 


Free Form Systems Models 


The free form systems models do not have a rigid mathematical function form/shape. 
The form/shape can be changed substantially by appropriate selection of the values 
of the model parameters either initially or during the trajectory by a parameter 
identification process. That is, the model is one for which the representing 
function(s) can be made to approximate operating rotorcraft relationship as closely 
as required at a finite number of points by appropriately selecting the values of the 
model parameters. Examples of free form models include: 


Z =4(0,C) 


Surface Fit Functions 


z = Ue,c) =&' 


h~ h~ 


~Ik -J* 


(e.c) 


Neural-Network Functions 


where C is the attenuation coefficient matrix. 

l t -l 2 -l 3 I K - J K defines the number of origin and destination 

nodes for each neural-network layer. The 
convention used here uses the superscript 
chain to specify the number of available node 
positions at the origin side (i.e., the left side) of 
each layer, except for the last superscript value 
in the chain which denotes the number of 
available node positions at the destination side 
(i.e., the right side) of the last layer. 


6 is the control vector. 
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The set of neural-network functions for this purpose is actually a subset of the set of 
all surface fit functions. The use of neural-network functions to model the operating 
rotorcraft within a closed-loop optimal controller being used to optimise rotorcraft 
aeromechanical behaviour is the subject of this study. 


2.1 .2 Primary Controller Function 

As the title of this report indicates, the primary function of the closed-loop controller 
described in this document is to optimise specified rotorcraft aeromechanical 
behaviour by appropriate selection of the elements of the control vector. 
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2.2 An Optimal Closed-Loop Neural-Network Controller 


The optimal closed-loop neural-network controller which was designed as part of this 
study and which is described herein, is an extension of the general controller scheme 
described in Section 2.1. As in the case of the general controller, the optimal 
closed-loop neural-network controller assumes that the measured behaviour 
(i.e., the measurement state vector, the measurement vector, the Z-vector, etc.) 
of a physical system (i.e., the rotorcraft, the plant, etc.) can be completely 
controlled by means of an appropriate system control vector (i.e., the control 
vector, the 0-vector, etc.). A schematic representation of this fundamental 
relationship is presented in Figure 1 . 


The optimal closed-loop neural-network controller (see Figure 3) differs from the 
general controller in that the mathematical model of the operating rotorcraft is 
specified to be a neural-network function whose parameters can be identified and 
updated during both a learning trajectory phase and a controlled trajectory phase. 
The learning trajectory phase is that part of the trajectory during which only the 
model parameters are identified and updated. The control vector is neither optimised 
nor updated during this phase. The controlled trajectory phase is that part of the 
trajectory during which either or both the control vector can be optimised and 
updated, and the neural-network model parameters can be identified and updated. 
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2.2.1 The Neural-Network Function and Its Geometry 


The neural-network function j^(*) as used in this study, is comprised of a connected 
set of nodes arranged in layers between the input control vector (i.e., the d-vector) 
and the output measurement vector (i.e., the Z-vector). The convention adopted 
during this study for pictorial representations (see Figure 4) is that the signal flow and 
layer indexing goes from left to right, that is the 0 -vector is input to the left of 
f N z(») with resulting neural-network internal signal flow proceeding from left to right 
until the signals exit as the Z-vector at the right extremity of The lower case 

letter k denotes the layer index number in ascending order from left to right, that is 
k increases monotonically from 1 to K when proceeding from the 0 -vector to the 
Z-vector where the upper case letter K denotes the index number of the last layer. 
As mentioned previously in Section 2.0, Figure 4 illustrates the geometry of the 
3-5-3-2 neural-network function j^j _5_3_2 («). 


The general form of the neural-network function ^ 2 (») ' 

where the value of I k for k = 1, 2, 3, • • • • K specifies the number of available node 
positions at the origin side (i.e., the left side) of the k-tit\ layer and the value of J K 
specifies the number of available node positions at the destination side (i.e., the right 
side) of the last layer (i.e., the AT-th layer). It is emphasised that the actual number of 
nodes that are used for in a specific application need not necessarily be 
maximum number that are available as specified by the values in the superscript 
chain. If 
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i is the origin index, that is the node number on the origin side (i.e., the left 

side), of the k - th layer. The convention adopted during this study for 
pictorial representations (see Figure 4) is that the node number increases 
with descending position, i e 4 where 4 is the set of all active origin 
nodes for the Jfc-th layer. 

j is the destination index, that is the node number on the destination side 

(i.e., the right side), of the Jk-th layer. The convention adopted during this 
study for pictorial representations (see Figure 4) is that the node number 
increases with descending position, j e J k where J k is the set of all 
active destination nodes for the k-th layer. 

k is the layer index number in ascending order from left to right, that is k 

increases monotonically from 1 to K when proceeding from the 6 -vector 
to the Z-vector where the upper case letter K denotes the index number 
of the last layer. 


then the signal path between specific nodes is uniquely defined by the indices /, j, k. 
If 


C ij, k is the attenuation coefficient for the signal directed from the /-th origin 
node of the k - th layer toward the j - th destination node of the /fc-th layer, 
where C/ j, k is constrained according to: 


‘J.k 


■'MIN. 


'J.k 




for 


Cm 


IN 


ij.k 


(-oo, +oo) 
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f( u j’t) is ^* ter (i- e - pass-through function) which is applied just prior 

to (i.e., immediately to the left of) the y'-th destination node of the fc-th 
layer. 

Uj k is the summation of all the attenuated signals directed from the active 
origin nodes of the ik-th layer toward the y'-th destination node of the k-Vn 
layer. 

jc. j k is the exit signal from the Ath origin node of the k - th layer which is 
directed toward the y'-th destination node of the fc-th layer. 


y. k is the arriving signal at the y'-th destination node of the k-Vn layer. 


then 


yj.k = 



For it = 1,2, - K 

V i,J k 


where 


u 


j-k 



X . 
i,J*k 


For k = 1,2 , ■ -K 

V jeJ„ 


It is noted that the above expression for Uj k can be generalised in terms of 
Kolmogorov-Gabor (KG) multinomials (Reference 10) of the form 



U u = C o.u + 'L C p.l.k X p.u + 




Pel, 9 € / 
* * 


^ ^ ^*^p,q,r,j,k X pJ,k. X q,j,k X r,j,k + 


Pel q el. r e / 

k k k 


For it = 1, 2, — ^ 

V 7 € 7 


The input and node compatibility/interface constraints are applied at each layer 
boundary. Specifically 


X U.k s 0, 


For it = 1 

V * e h 

V ' jeJ k 


X i,j,k ~ y i,k~i 


For it = 2,3, -K 

V * e /*_] = 4 

V JeJ k 


where it is assumed that the common signal source constraints apply, that is all the 
signals exiting from a specific node are the same. Specifically 


x i,j l .k - X i,j 2 ,k 


For it = 1,2,— 

V i € I k 

V 7, € J k 

V 
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The output measurement vector (i.e., the Z-vector) is then defined 


z 7 s yjj 


For k = K 

V JeJ. 


The neural-network function J^(*) for a specific control vector (i.e., the 0-vector) 
and attenuation coefficient matrix (i.e., the C-matrix) is defined 
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2.2.2 Neural-Network Filter Functions/Pass-Through Functions 

The filter/pass-through function f[ u j,k) of the 7 -th-Jt-th argument u jk is applied just 
prior to (i.e., immediately to the left of) the y-th destination node of the k - th layer and 
consequently defines the arriving signal )/. k at the 7 -th destination node of the k-\h 
layer. Specifically 

For it = 1,2, -K 

V J*J t 

where the argument Uj k is the summation of all the attenuated signals directed from 
the active origin nodes of the it-th layer toward the 7 -th destination node of the k - th 
layer, that is 

^ f For it = 1, 2, •••• K 

U j.k ~ ^ ij.k X i,j.k I V j € J k 

i e l k 1 * 

The filter/pass-through function attenuates the u J k argument in accordance with a 
mathematical rule/function which is specified for each (j, k) tuple. In addition to the 
No-Pass Function (i.e., the Constant Function) and the Direct-Pass Function (i.e., the 
Linear Function), the commonly selected filter/pass-through functions are either of 
the signoid type or of the pulse type (e.g., a radial function, a bell shaped function, 
et cetera). If these functions are continuous and smooth, that is if they are 
connected with continuous derivatives, they have the forms which are illustrated in 
Figure 5. For this study, the Hyperbolic Tangent Function was selected to be the 
signoid type function, whilst its first derivative was selected to be the pulse type 
function. The motivation for this selection was to facilitate the analytic evaluation of 
the partial derivatives required during the optimisation iteration process which is used 
to update the neural-network parameters, and to provide function compatibility 
between the signoid and radial type functions. In addition, this selection appears to 


- j£M 


14 


be suitable for the use of a regularisation method which uses partial derivatives of 
the error metric to define the regularisation functional that is added to the 
performance index during the neural-network parameter update process (References 
1 1 through 18). These four types of filter/pass-through functions are described in the 
following sub-sections. 


2.2.2.1 Constant Function: the No-Pass Function 

The Constant Function (see Figure 6) is also referred to as the No-Pass Function 
because the output signal y>j k is specified by the function constant Q. k and is 
completely independent of the input signal Uj k . For a specific (j, k) tuple, the 
Constant Function is 


y J* - \ k 



where 


C Q . k is the specified constant, 
v. is the vertical translation constant. 

°j.k 

It is noted that the node defined by the (j, k) tuple can be effectively eliminated by 
setting Q and y n equal to zero. C, can be thought of as a bias signal in the 

J.k U j.k ]> k 

neural-network system. 
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2 . 2 . 22 . 


Linear Function: the Direct-Pass Function 


The Linear Function (see Figure 6) is also referred to as the Direct-Pass Function 
because the output signal 3; k can be made to be identically equal to the input signal 
Uj <k by appropriately specifying the values of A 0 , Q. , u 0 . , and y 0 . ; 
specifically by setting A 0 . k = 1 , Cq. k - 0, u 0 . ^ = 0, and y Q . ^ = 0. For a 
specific (j, k) tuple, the Linear Function is 



where 

A q . k is the specified attenuation constant. 

C 0 . k is a specified constant. 

u n is the horizontal translation constant. 

°y. k 

y n is the vertical translation constant. 

°j.k 

It is noted that the node defined by this Linear Function can be made to degenerate 
to the Constant Function be setting A 0 . k = 0. 

If two points P\{u Xj y , . k j and P 2 {u^ y 2 . ^ j are known to be contained in the 

mapping of the desired Linear Function, the constants A 0 . k and C 0j k can be 
readily obtained from 





Mi 


'j.k 
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and 
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2.2.2.3 Hyperbolic Tangent: the Threshold Function 

The Hyperbolic Tangent Function (see Figure 7) is also referred to as the Threshold 
Function because the output signal y. k has a constant value (e.g., zero) or is as 
close as required to a horizontal asymptote for values of the input signal u jk below 
a threshold limit. For values of the input signal Uj k above this threshold limit, the 
output signal y^ k “ramps” to another constant value or as close as required to 
another horizontal asymptote. For a specific (j, k) tupie, the Hyperbolic Tangent 
Function is 



= Co.Tanh 

J*k 




)] 


where 

A 0 . k is the specified horizontal scaling constant 
C n . is the specified attenuation constant. 

u J’k 

u n is the horizontal translation constant. 

y n is the vertical translation constant. 

°j.k 


The horizontal 
considerations 
specific point 


scaling constant A 0 . k can be readily determined from geometrical 
(see Figure 7). If it is desired to have the function pass through a 

P { b + \k' a S,* + \J Where C Hk’ b e (°’ +00 )- and 
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(X e (0, l) a re specified, and noting that the function passes through point 

*(%.■ \j’ ,hen 




V 


1 + a 
1 - a 


\ k € (°* +0 °) 


2.2.2A First Derivative of the Hyperbolic Tangent: the Pulse Function 

The First Derivative of the Hyperbolic Tangent Function (see Figure 8) is also 
referred to as the Pulse Function because its width can be made to be as narrow as 
required by the appropriate selection of the horizontal scaling constant A 0 . ^ . For a 
specific (j, it) tuple, the First Derivative of the Hyperbolic Tangent Function defined in 
the previous subsection is 

^ " \ k 


is the specified horizontal scaling constant, 
is the specified attenuation constant, 
is the horizontal translation constant, 
is the vertical translation constant. 


where 


A n . 


v J,k 


C Hk 


U n 


U J.k 


\k 


= \ t c °u sech2 _ s.J 
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The horizontal scaling constant A Q . k can be readily determined from geometrical 
considerations (see Figure 8). If it is desired to have the function pass through a 
specific point p(b + u 0jk , aA 0 + J where C^. b e (0, +oo). 
and OL e (0, l) ar © specified, and noting that the function passes through point 

P °i\k' \k C °j,k + y °j.k)’ ther ' 





\k e (°> + °°) 
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2.2.3 The Sliding Window of Data Acquisition 


The purpose of the Closed-Loop Optimal Neural-Network Controller described herein 
is to optimally control the aeromechanical behaviour of a rotorcraft over a period of 
time. This behaviour history is the time process which is the “trajectory of interest”. 
For convenience and efficiency, each trajectory segment (i.e., either the learning 
trajectory or the controlled trajectory) is compartmentalised into contiguous time 
intervals referred to as “duty cycles”. These duty cycles are sequentially processed 
until the completion and termination of the current trajectory segment. The various 
tasks that are required to be processed during the current duty cycle are placed in a 
priority queue, initiated as appropriate, executed, and completed as time permits. 
The duration of the duty cycles is typically defined by a recurring physical event such 
as the start of a rotor revolution (i.e., after n rotor revolutions) or after a fixed time 
interval (i.e., after A t DC seconds). The acquisition and processing of the pertinent 
data required by the controller (i.e., the current measurement Z - vector and the 
current control 6- vector) to determine/update the constants of the neural-network 
plant model and/or to determine the optimal control 6 -vector are essential duty cycle 
tasks. 

The “sliding window of data acquisition” as illustrated in Figure 9 is a convenient 
means to describe the initiation and accomplishment of the data acquisition and data 
processing tasks for the sequential duty cycles. The purpose of sliding window is to 
provide a means to include previously acquired data with the latest acquired data 
when determining/updating the constants of the neural-network plant model whilst 
culling out the older data. Data acquisition (i.e., transmission of the current 
measurement Z - vector and the current control 0 - vector to the first location in 
the sliding window) is tasked during the first duty cycle after a specified delay count 
(i.e., after a specified number of duty cycles) from the beginning of each trajectory 
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segment . This specified delay count is referred to as the “data acquisition delay” 
for the current trajectory segment. Subsequent data acquisition is tasked at a 
specified duty cycle frequency (i.e., after a specified integral number of duty cycles). 
This specified duty cycle frequency is referred to as the “data acquisition 
frequency”. It is consequently not necessary for data acquisition to occur during 
each duty cycle although this is possible and is indeed frequently the case. 

The sliding window of data acquisition is comprised of the sequentially acquired data 
sets {Z/ - vector and 6 l - vector for / = 1, 2, 3, • • • • LMAX} where LMAX is 
the current number of data sets in the sliding window. Whenever a new set of data 
is acquired, the positions of the previously acquired data sets in the sliding window 
are advanced by one (e.g., the Z- vector and 0,- vector become the Z 2 - vector 
and 0 2 - vector, respectively; the Z 2 - vector and 0 2 - vector become the 
Z 3 - vector and 0 3 - vector, respectively; and so on until the positions of all the 
data sets in the sliding window have been advanced by one). The newly acquired 
data set becomes the new Z vector and 0,- vector. If the earliest data set in the 
window (i.e., the Z LMAX - vector and 0 LMAX - vector) is advanced to a position 
beyond the specified maximum sliding window size, it is eliminated from the sliding 
window. This specified maximum sliding window size is referred to as the “window 
length”. 
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2.2.4 Optimal Update of the Neural-Network Model 

There are two principal categories of optimisation procedures employed to optimally 
determine/update the neural-network plant model. The first category deals with the 
task to optimally select the constants of the neural-network plant model (i.e., the 
“optimal constants selection process”) and to eliminate and/or add neural-network 
paths and/or nodes in this plant model. The second category deals with the tasking 
of data acquisition, the retention and weighting of this data for the optimal constants 
selection process, and the operation of the optimisation algorithm employed during 
this optimal constants selection process. 


The determination/update of the constants of the neural-network plant model is 
accomplished using the modern constrained optimisation method described in 
References 2 through 8. This task is posed as a non-linear programming problem 
for which a performance index is minimised subject to constraints. In this case, the 
control vector is comprised of the attenuation coefficient elements C,j.* of the 
attenuation coefficient matrix (i.e., the C-matrix) which are defined in Section 2.2.1. 
The optimisation process selects the values of C, j,* which minimise a performance 
index based on the closeness of predicted measurement Z- vectors (i.e., the 
Z - vectors obtained using the neural-network plant model with the current values of 
the attenuation coefficient elements C,j, k ) to the “actual” measurement 
Z - vectors (i.e., the Z - vectors obtained from the data sets in the sliding window). 
Provision has been made to weight the data sets in the sliding window according to 
position in the window as defined by the index /, for / = 1 , 2, 3, # # ♦ • LMAX. The 
optimal constants selection process is the solution to the following optimisation 
problem. 
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Minimise 
C . e C 

v l, J. k 



LMAX 

= £ W sw, - Zj [Z N , - Z A( ] 

/= 1 


Subject to: 


ij.k 


[< 




' MAX u.J 


CMtN tJjk € (-oo,+oo) 

Cma X iJ>fc € (-°°. +°°) 
CMIN / ; jt ^ CMAX, yU 


where 


is the diagonal weighting coefficient matrix for the quadratic 
difference term (i.e., the “square” of the difference between the 
predicted and the actual measurement Z- vectors) which is an 
element in the performance index J 2 . 

N 

^sw , is the weighting coefficient for the /-th data set of the sliding window. 

Z A is the actual measurement Z - vector from the /-th data set of the 
sliding window. 



is the predicted measurement Z - vector from the /-th data set of 
the sliding window; = 6,C )• 
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Although no automatic scheme for the elimination and/or addition of neural-network 
paths and/or nodes have been implemented as of this time, a general plan for such 
an automatic scheme has been identified; specifically : 


V 



< 




or 



« 



where £ c is a suitably selected small positive real number. 


for a specific (i, j, k) tuple (i.e., for a specific i-th origin and j- th destination in a 
specific ik-th layer), close the associated i,j, k path by setting C ( . j k = 0 and 
removing it from the optimisation control vector. This action has the advantage of 
reducing the dimension (i.e., the degrees-of-freedom) of the optimisation problem by 
one for each specific (i,j, k) tuple for which one of these conditions occurs. The 
reduction of dimension will hopefully enhance the efficiency of the optimisation 
process. 


V 



< 


£c 


or 



« 


c 


V i e I k with the specific 7 -th destination in the specific Jk-th layer, eliminate the 
associated node defined by the (j, k) tuple. This is accomplished by closing the 
associated i, j, k paths to this node and all paths from this node as defined by the 
(j,p,k+I) tuple V P € J k+X . Set the associated C,j tk and Cj p M values to 
zero and remove them from the optimisation control vector. Removal of a node 
reduces the dimension of the optimisation problem by the sum of the number of 
i e I k and the number of P e 7 t+1 . 


If 



or 



» 


c 
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where £ c is a suitably selected large positive real number. 

for a significant number of / e I k with the specific 4-th destination for q e J k in 
the specific fc-th layer, the possibility exists that neural-network modelling 
performance can be enhanced by the addition of one or two nodes adjacent to the 
node defined by the (q, k) tuple. 


Specifically, let 


N/^ = the number of paths from the origin nodes to the destination node 
which is defined by the (q, k) tuple (i.e., the number of / e I k ) for 
Q e J k in the specific k - th layer. 


h = 


c = 


|i J * € lower half of / e I k j 

where the median i e I k is ignored when is odd 

j/ j i € upper half of i e I k J 

where the median / e l k is ignored when is odd 


= the number of / € I k for which 


. 

i.q*k 


> c 


or 


M » |c 


Ny = the number of / e I k for which 


' • i 

t*q*k 


> c 


or 


C- Jl » 

i.q*k 
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then 


if N /t ^ Trunc^CtNy,^ 

where the Trunc(e) is the truncation function and CC is a suitably selected 
positive real number e [0.0, 0.5], 

then add a node adjacent to and “above” (i.e., before) the destination node which is 
defined by the (q, k) tuple by advancing the j € J k indices by one for j ^ <7 and 
adding the new node to the vacated (q, k) position. Paths to and from this new node 
must be appropriately added by defining the associated C k and O q p A+1 values 
for P e J k+ 1 and q e J k . This has the effect of increasing the dimension of the 
optimisation problem by the sum of the numbers of i € I k and j € J k for each 
node added. 

If N 4 ^ Trunc^N/J 

where fi is a suitably selected positive real number € [0.0, 0.5], 

then add a node adjacent to and “below” (i.e., after) the destination node which is 
defined by the (q, k) tuple by advancing the j e J k indices by one for j > q + 1 
and adding the new node to the vacated (q + 1 , k) position. Paths to and from this 
new node must be appropriately added by defining the associated C ; and 
C<?+| P k +i va,ues 1° r P e -A + i and 9 6 4 - This has the effect of increasing 
the dimension of the optimisation problem by the sum of the numbers of / € l k and 
j € J k for each node added. 


It is felt that more experience using this controller should be obtained before 
attempting to define the details required for implementation of an automatic 
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procedure such as the one described above, to modify the initial “geometry” of the 
neural-network plant model. 


The tasking of data acquisition (i.e., the definition of “data acquisition delay” and 
“data acquisition frequency”), the retention and weighting of this data for the optimal 
constants selection process (i.e., the definition of “data window length” and the 
values of W SW/ the weighting coefficients for the /- th data sets of the sliding 
window), and the operation of the optimisation algorithm employed during this 
optimal constants selection process (e.g., the selection of the convergence tolerance 
values and the maximum number of iterations in each optimisation solution process) 
is not amenable to the use of automated optimisation methods such as those 
employed during the optimal constants selection process. Although this problem can 
be posed as an integer programming problem, attempts at its solution at this time are 
accomplished by manually selecting the governing parameters based on the 
experience of operating the controller. 
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2.2.5 Control Optimisation 


One of the important tasks which can be requested during a duty cycle is the optimal 
selection of the control 6 - vector (i.e., the “optimal control selection process”) to 
be used during the next duty cycle. There are two principal categories of 
optimisation procedures employed for this optimal control selection process. The 
first category deals with the optimisation of the elements of the control 6- vector, 
subject to constraints, which minimises a metric of selected elements of the 
measurement Z- vector. Although this optimal control selection process utilises the 
most recently determined neural-network plant model (i.e., neural-network plant 
model defined by the most recently determined neural-network plant model geometry 
and the associated attenuation coefficient elements C. ; .as described in Section 
2.2.4) to define the required elements of the measurement Z- vector, the sliding 
window of data acquisition (see Section 2.2.3) is not employed directly in this 
process; it is assumed that the plant model is already defined. The second category 
deals with the operation of the optimisation algorithm employed during this optimal 
control selection process. 


As in the case of the optimal constants selection process described in Section 2.2.4, 
the selection of the optimal control 6 - vector is accomplished using the modern 
constrained optimisation method described in References 2 through 8. This task is 
posed as a non-linear programming problem for which a performance index is 
minimised subject to constraints. In this case, the control vector is comprised of 
selected elements of the control 6- vector (see Section 2.2.1). The optimisation 
process selects the values of these elements of the control Q- vector which 
minimise a performance index defined as a metric of selected elements of the 
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measurement Z - vector. The optimal control selection process is the solution to the 
following optimisation problem. 


Minimise J C y = Zq V W cv Z cv 
0 p eO 

for P e 


Subject to: 



% € ^MINp’ ^MAXpj 

for p € 

h 

^MIN p € (-°°. +oe> ) 

for p e 

Ie 

0 MAX, € (-°°. +°°) 

for p e 

Ie 

0 <6 
WN p ~ MAX p 

for P € 

Ie 

$ + % * 

for P,q 

e Ie 


where 

I e is the set of all P 3 0 P e 0. 

W cv is the diagonal weighting coefficient matrix for the quadratic term 
(i.e., the “square” of the predicted Z - vector) which is an element in 
the performance index J C y . 

Z cv is the predicted measurement Z- vector evaluated during the 
control 0- vector optimisation/update process. Z cv = f 2 (0,C) 
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As in the case of the optimal constants selection process described in Section 2.2.4, 
the operation of the optimisation algorithm employed during this optimal control 
selection process (e.g., the selection of the convergence tolerance values and the 
maximum number of iterations in each optimisation solution process) and the 
frequency of tasking this process can be optimised. It is emphasised that in the real 
time trajectory environment, tasking the optimal control selection process during 
each duty cycle and/or requiring convergence of the optimisation process to within a 
small tolerance is not necessarily the “optimal” or “best” way to operate the 
optimisation algorithm. The frequency of tasking this optimal control selection 
process and the associated required amount of computation and processing (e.g., 
requiring convergence to within a small tolerance) within the duty cycles in which this 
process is tasked is indeed relevant to the overall trajectory optimisation and is 
amenable to optimisation. Although this problem can be posed as an integer 
programming problem, attempts at its solution at this time are accomplished by 
manually selecting the governing parameters based on the experience of operating 
the controller. 
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2.3 The Optimal Constants and Optimal Control Selection Processes as 
Non-linear Programming Problems 

The problems which are addressed in both the optimal constants selection 
process described in Section 2.2.4 and the optimal control selection process 
described in Section 2.2.5 are special cases of the general Non-linear Programming 
(NLP) Problem. The selection processes for both of these cases seek the optimal 
control vector which minimises a performance index subject to constraints on the 
control vector. The performance index is in general non-linear. Although the 
constraints on the control vector are constant limiting values for the optimal 
constants selection process as of the date of this report, they can also be non-linear 
if required. Provision has been made for quadratic constraints (e.g., harmonic 
magnitude constraints) on the control vector for the optimal control selection process 
to be applied as required. These selection processes thus require an optimisation 
technique which treats a more difficult non-linear problem than the relatively simple 
quadratic programming problem. 


The general non-linear programming (NLP) problem is defined in Section 2.3.1, 
and the method of its solution which is employed in this research is described 
in Section 2.3.2. 
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2.3.1 The General Non-linear Programming Problem 


The general non-linear programming (NLP) problem can be expressed in the form 
Minimise J = £[Z(0)] for p e I e 

Qp e 0 

Subject to: 

<t>{6) = 0 

Vie) > o 

where 

g[Z(d)] is the scalar performance index which is a function of the plant 
output measurement vector (i.e., the Z- vector). In general, this 
function can be non-linear. 

l e is the set of all P 3 0 P e 0. 

Z(0) is the predicted measurement Z- vector evaluated during the 
optimisation process. Z = f 2 (d,C)- 

6 is the control vector 0 - vector . 

m is the equality constraint vector function which in general can be 

dependent on the 0 - vector . 

¥(0) is the inequality constraint vector function which in general can be 
dependent on the 0 - vector. 
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2.3.2 A Solution to the General Non-linear Programming Problem 

Investigation of various methods to solve the General Non-linear Programming (NLP) 
problem led to the selection (Reference 1) of the highly successful modem methods 
of Schittkowski, Powell, Stoer, and Gill et al (References 2 through 8). These 
general NLP solution methods were coded in FORTRAN and are readily available as 
IMSL library routines (specifically, IMSL main driver routines DNCONF and 
DNCONG described in Reference 9). These methods solve the general NLP 
problem by solving a sequence of related quadratic programming sub-problems 
(QPSs) until either convergence is obtained or the specified maximum number of 
iterations (i.e., the specified maximum number of quadratic programming problems to 
be solved) is reached. One important advantage of this technique is that quadratic 
programming problems can be solved efficiently. A very important property of 
quadratic programming formulations is that if the quadratic coefficient matrix in the 
performance index is positive definite, the problem has a unique solution which is, of 
course, the global solution. These methods worked quite well in the research 
described in Reference 1 , and have proven to be quite robust and efficient in the 
research described herein. 


The general quadratic programming problem (QPP) can be expressed in the form 


Minimise J - 8(d) = OCq 0 + C, 0 for P g I 0 

0 p e 0 

Subject to: 

<Ke) = A+e + B* = o* 

W(d) = A ¥ e + By > Oy 
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where 


Af is the coefficient matrix in the linear term of the linear equality 

constraint function <f>{0). 

A v is the coefficient matrix in the linear term of the linear inequality 

constraint function Y{d). 

is the constant vector term of the linear equality constraint function 

He). 

B ¥ is the constant vector term of the linear inequality constraint function 

He). 

C L is the coefficient matrix in the linear term of the quadratic 

performance index function 8(6). 

C Q is the coefficient matrix in the quadratic term of the quadratic 

performance index function £(0). 

8(6) is the scalar performance index which in this case is a quadratic 
function of the control vector 6 - vector. 

I 0 is the set of all P 3 6 P e 9. 

0$ is the right hand side null or zero vector of the linear equality 

constraint function 0(0). 
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0 ¥ is the right hand side null or zero vector of the linear inequality 

constraint function V(0). 

6 is the control vector 9 - vector . 

m is the equality constraint vector function which in this case is a linear 

function of the control vector 9 - vector . 

V(e) is the inequality constraint vector function which in this case is a 
linear function of the control vector 9 - vector . 


The successive quadratic programming sub-problems (QPSs) used to solve the 
general non-linear programming (NLP) problem are formulated by using a quadratic 
approximation of the general NLP performance index function 8(9) and linear 
approximations of the general NLP equality and inequality constraint functions 0(d) 
and Y(9). These approximations are obtained by simple replacement of the 8(9), 

0(d), and yf(0) functions with their appropriately truncated matrix Taylor Series 

( d 2 8(Q) \ 

i.e., — 2 | is not positive definite, the 

algorithm adjusts it so that it is so that global optimality of the QPS is assured. 
Specifically, at each iteration step the quadratic programming sub-problem (QPS) to 
be solved is: 


Minimise J = 0 O ] Cq 0 O ] + C L [#" 0 O ] for P € 7 e 


Subject to: 

He) = A,[0-e o ] + Bf = 0, 
v(e) = e 0 ] + Byia, 
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where 


As — 


dm 

~w 


e=e a 


and 


A ii/ — 


dv(e) 
~ZT 


Co = 


_ <9 2 g(fl) 


do 2 


e=e 0 


\e = e n 


and 


and 


g(e) = ^[e-eofc^e-e,,] + Q 


- Wle-e, 
B r“ ^)l 9=fll 
r _ <?«(«) 

[e-e 0 ] 


I e is the set of all P 3 6 P e 6. 

0^ is the right hand side null or zero vector of the linear equality 

constraint function 0(0). 

Oy is the right hand side null or zero vector of the linear inequality 

constraint function Y{d). 

d is the control vector Q - vector . 

0 0 is the value of the control vector 6 - vector at the start of each 

quadratic programming sub-problem (QPS). 


If optimality as measured by satisfying the Kuhn-Tucker optimality criterion at the 
completion of an iteration step and if the specified maximum number of iterations has 
not been reached, the Hessian is updated (References 3 and 4), 6 0 is set equal to 
the last value of 0, and a new iteration is attempted. 
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2.4 Trajectory Data 


The time history of the rotorcraft behaviour of interest, that is the “trajectory of 
interest” (see Section 2.2.3), is the source of the data that is acquired and/or defined 
during the specified duty cycles. Provisions in the Optimal Neural-Network Controller 
(ONNC) System (i.e., the code which was developed to implement the Closed-Loop 
Neural-Network Controller described herein) were made to optionally accept one of 
four forms of this data. These optional data forms are: 1) On-Line Trajectory Test 
Data (described in Section 2.4.1), 2) Off-Line Trajectory Data Tables (described in 
Section 2.4.2), 3) Analytic Trajectory Synthesis (described is Section 2.4.3), and 
4) User Supplied Trajectory Model (described in Section 2.4.4). 


2.4.1 On-Line Trajectory Data 

A position/slot in the Optimal Neural-Network Controller (ONNC) System was 
provided to accept data sets in real time from an ongoing test. To activate this 
option, the DSTATE subroutine must be specifically designed and then coded to 
satisfy the requirements of test at hand. In general, this DSTATE subroutine will 
include the basic features of the Off-Line Trajectory Data Tables TSTATE subroutine 
described in Section 2.4.2, however it will additionally need to be formatted to accept 
the data sets transmitted from the ongoing test. This DSTATE routine will also need 
to be compatible with the ONNC System which reads one data set at a time 
commensurate with real time duty cycle methodology. 


37 


2.4.2 Off-Line T rajectory Data T ables 


The TSTATE subroutine in the Optimal Neural-Network Controller (ONNC) System 
was provided to read off-line trajectory data sets from input tables one data set at a 
time commensurate with real time duty cycle methodology. 


2.4.3 Analytic Trajectory Synthesis 

The AST ATE subroutine in the Optimal Neural-Network Controller (ONNC) System 
was provided to analytically synthesise off-line trajectory data sets one data set at a 
time commensurate with real time duty cycle methodology. Whenever trajectory 
data is to be acquired, the analytic vector synthesis function H(/) is evaluated. 
Specifically: 


let 


((*) = 


e s (t ) 
z s (t) 


then S (t) = £(t) = 

where t is the current time. 

Z s (f) is the synthesised control Z- vector at time t with dimension 
(N xi). 

e s (t) is the synthesised control 9 - vector at time t with dimension 

(M x l). 


e s (t) 
z s« 
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{W is the synthesised combined trajectory data vector with dimension 
([M + N] x l). 

Each element £ft) of £(/) is defined by 

iff) = [A 3f +J? 3| Uran(iSEED 3< .)] 

+ [C 3< . + A, Uran(jSEED 3| .)] H f (/) 

V i € [l, (M + N)] 

where A 3; . A,-, C^.. and />,, are input constants.. 

H,(t) is the composite synthesis function for the i-th element of £(?). 

ISEED 3( . and JSEED^- are input seeds for the VAX FORTRAN uniformly 
distributed random number generator function RAN(*) for the 
/-th element of £(?)- Although there are no restrictions on the 
value of this seed other than it is an INTEGERS variable, the 
best results are obtained when it is initially input as a large odd 
integer. 

RAN(*) Is the VAX FORTRAN uniformly distributed random number 
generator function described in Appendix D of Reference 19. 

RAN(a) € [0.0, 1.0] 

Uran(*) is the uniformly distributed random number generator function 
3 Uran(») e [-1.0, 1.0]. Uran(») is defined by 

Uran(») s 2*RAN(«) - 1.0 
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It is noted that the first term |a 3j . + Z? 3| .Uran(lSEED 3/ .)J in the equation 
defining the synthesised combined trajectory data vector £(/) represents 
a bias in the composite synthesis function H,( t ) whilst the second term 
^C 3( . + D 3/ Uran(jSEED 3/ )] H/(f) in this equation represents the statistical 
uncertainty in this function. 

The composite synthesis function H,(f) for the i-th element of £,{t) is the 
summation of up to seven individual modelling functions h m \ | T m j where 

m = 1, 2, 3, • • • • MMAX . Specifically: 

MMAX 

H,(/) = ^ ,or MMAX € [l ’ 7] 

m = 1 

Eight different individual modelling functions h m [ T m ) are currently provided in the 
ONNC System. These functions are described in the following sub-sections (i.e., 
Sections 2.4.3.1 through 2.4.3.8). With the exception of the Uniformly Distributed 
Random Function described in Section 2.4.3.8, the individual modelling functions 
h m { ) 030 include a random bias and/or a statistical uncertainty. Specifically: 

h„(%n) = [^2„ + ft„Uran(lSEEDi m )] 

+ [A„ + A. Uran(jSEED 2m )j gjr m ) 

V rn e [ 1 , MMAX] 

where A 7 , R, , C 2 < and D 7 are input constants.. 

is the core deterministic modelling function of the m-th specified 
individual modelling function h m ( j. 


40 


(SEED? and JSEED? are input seeds for the VAX FORTRAN 

L m L m r 

uniformly distributed random number generator function 
RAN(») for the m-th specified individual modelling function 
h m [^m )• Although there are no restrictions on the value of this 
seed other than it is an INTEGER*4 variable, the best results are 
obtained when it is initially input as a large odd integer. 




is the periodic time argument for the m-th specified individual 


modelling function j. 


It is noted that the first term |y4 2m + # 2 m Uran( ISEED 2(n )| in the equation 
defining the m-th specified individual modelling function represents a bias 

in this function whilst the second term \Ci m + Di m Uran(jSEED 2m )l £ m ( j 
in this equation represents the statistical uncertainty in this function. 


Periodicity with phase shift relative to an epoch time for the core deterministic 
modelling function ^ j of the m -th specified individual modelling function 
h m [T m j is accomplished by specifying the period T m time, phase shift ^ time, 
and the epoch L time (see Figures 10 and 11). Specifically, the periodic time 
argument T m for g m [ ^ ) and h m [ ) is 

r m s DMOD([r-t w -S.].T.) 

where DMOD(») is the VAX/VMS FORTRAN Intrinsic Remainder Function 
described in Group 3 of Appendix B of this document and in 
Appendix D of Reference 19. 

t is the current time. 
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L is the phase shift time for the m-th specified individual modelling 


function 


h m {%n\ 


is the reference/epoch time for the m-th specified individual 


modelling function T m j. 


T is the period time for the m-th specified individual modelling 


function 




2.4.3. 1 Linear/Ramp Function 

The Linear/Ramp Function (see Figure 12) is expressed by 

= y-y a = ar m + c 

where 

a is the specified attenuation constant (i.e., the slope). 

C is a specified constant (i.e., the intercept). 
y is the value of the m-th core deterministic modelling function 

plus %• 

y 0 is the vertical translation constant. 

T m is the periodic time argument for the m-th core deterministic 
modelling function T m ] . 
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If two points ^ j and J* ^ j are known to be contained in the 

mapping of the desired Linear/Ramp Function, the constants a and C can be 
readily obtained from 


and 


a = 


~ Jj 

%n 2 ~ 


c = y 2 -y 0 - 


2A.3.2 Serpentine Curve Function 


The Serpentine Curve Function (see Figure 13) is expressed by 




s y - * - 


"m 


where 


a is the specified horizontal scaling constant. 

b is the specified amplitude constant. 

y is the value of the m-th core deterministic modelling function 

P |US y 0 - 

y„ is the vertical translation constant. 


is the periodic time argument for the m-th core deterministic 


modelling function £ m ( ^ )• 
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Scaling of this Serpentine Curve Function is readily accomplished by noting the 
geometrical property that ^ j obtains its maximum and minimum values 
±b / 2 when 

= 0 which occurs when T m = ±a 


2A.3.3 Witch of Agnesi Function 


The Witch of Agnesi Function (see Figure 14) is expressed by 


* 4 ^) = y - % = yt 


b 2 T 


m 


where 


a is the specified amplitude constant. 


b is a derived horizontal scaling constant. 

y is the value of the m-th core deterministic modelling function 

^m( Tm ) P* us y 0 • 

y 0 is the vertical translation constant. 


*wj 


is the periodic time argument for the m-th core deterministic 
modelling function j. 


Scaling of this Witch of Agnesi Function is readily accomplished by noting the 
geometrical properties that 8 A \ obtains its maximum value a when 
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= 0 which occurs when T m = 0 

and that - 0 as ^ ^ i oo 

and by appropriately specifying a scaling coefficient c 3 c € (0, 1.0) so that 
y - = ca when T m = ±a 

The derived horizontal scaling constant b then becomes 


b = 


2.4.3.4 Inverted Witch of Agnesi Function 


The Inverted Witch of Agnesi Function (see Figure 1 5) is expressed by 



a - 


c r 


a 2 + b 2 Z 


m 


where 


a is the specified amplitude constant. 


b is a derived horizontal scaling constant. 

y is the value of the m-th core deterministic modelling function 
Zm{%n) P |US y 0 - 

J 0 is the vertical translation constant. 


"m 


is the periodic time argument for the m-th core deterministic 
modelling function gJ^Z^. 
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Scaling of this Inverted Witch of Agnesi Function is readily accomplished by noting 
the geometrical properties that 8 m i ) obtains its minimum value 0 when 


-Zf\ g m{%n)\ = 0 which occurs when T m = 0 

and that ) — i > a as T m ±oo 

and by appropriately specifying a scaling coefficient C 3 C g (0, 1.0) so that 
y - y Q = ca when T m = ±a 

The derived horizontal scaling constant b then becomes 


b = 


± 



2.4.3.5 Enveloped Sinusoidal Function 

The Enveloped Sinusoidal Function (see Figure 16) is expressed by 

s m {r m ) = y - % = CEx Pe \a{ r m - \i/)]cos\na(r m - 0 )] 

where 

C is the specified attenuation constant of the above equation. 

f is the fundamental of primary frequency of the sinusoidal factor of 
the above equation. 

n is harmonic frequency number of the sinusoidal factor of the 
above equation. 
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nf is the net frequency (i.e., the harmonic frequency number fl 
times the fundamental of primary frequency f) of the sinusoidal 
factor of the above equation. 

nCQ is 2 7t times the net frequency nf of the sinusoidal factor of the 
above equation. 

(X is a derived horizontal scaling constant for the exponential factor 
of the above equation. 

0 is a phase time constant of the sinusoidal factor of the above 
equation. 

y/ is a derived horizontal shift constant for the exponential factor of 
the above equation. 

0) is 2 It times the fundamental of primary frequency f of the 
sinusoidal factor of the above equation. 

y is the value of the m-th core deterministic modelling function 

SfSjm) P'US y 0 . 

y 0 is the vertical translation constant. 

T m is the periodic time argument for the m-th core deterministic 
modelling function 8 m i ^ ). 


Scaling of this Enveloped Sinusoidal Function can be accomplished by directly 
specifying values of C, n, (X, (f>. Iff, and (0 or from consideration of 
geometrical properties. The exponential envelope factor C J OC ^ / ZT n ~ V^)| 
of the above equation can be thought of as the coefficient of the oscillatory factor 
Cos\na)(z m - 0)1 of this equation. The overall rate of convergence or 
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divergence can readily be defined by specifying a required value of the exponential 
envelope factor at a selected value T* of T m ; specifically 


specify B = - ty/JJ for the selected value T* 

Noting that C Exp e [a(T m - V 4 )] s C at T m = If/ 


let 



then 



Note that divergence of the exponential envelope factor occurs when Z? > C, the 
exponential envelope factor is invariant when B s C, and convergence of the 
exponential envelope factor occurs when B < C. 


Either harmonic frequency number n together with 2 K times the fundamental 
frequency / (i.e., CO) of the of the sinusoidal factor can be directly specified, or 
the required value of n(0 can be derived from a specified net period P; 
specifically 



2.4.3.6 Hyperbolic Tangent: the Threshold Function 


The Hyperbolic Tangent Threshold Function (see Figure 17) is expressed by 

8 m {%n) = y ~ y 0 = CTanh(AT m ) 
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where 


A is a derived horizontal scaling constant. A e (0.0, +oo) 

C is the specified attenuation constant. C e (0.0, +oo) 

y is the value of the m-th core deterministic modelling function 

p |us y 0 - 

is the vertical translation constant. 

T m is the periodic time argument for the m-th core deterministic 
modelling function ] . 


Scaling of this Hyperbolic Tangent Threshold Function ^ j is readily 
accomplished by noting the geometrical property that 

) -» ±C as T m -» ±oo 

and by defining a required value (XC of this function for a specified value 
b e (0.0, +©o) of T m . Specifically 

?-?(>= g m( T "«)L L S aC f0r a € (°- 0 ’ L °) 

' ' f - h 


then 


A = 


Tt ln 


t 


\ 


1 + « ") 
l-aj 


2.4.3.7 First Derivative of the Hyperbolic Tangent: the Pulse Function 

The First Derivative of the Hyperbolic Tangent Pulse Function (see Figure 18) is 
expressed by 


49 



«„K) - y - % = -£-{cTanh(AT m )} = ACSech 2 (AT m ) 

where 


A 

C 

y 

y 0 


is a derived horizontal scaling constant. A e (0.0, +°o) 

is the attenuation constant. C e (0.0, +oo) 

is the value of the m-th core deterministic modelling function 
2m( T m) P |US y 0 - 


is the vertical translation constant. 


is the periodic time argument for the m-th core deterministic 
modelling function ) • 


Scaling of the First Derivative of the Hyperbolic Tangent Pulse Function ^ j is 
readily accomplished by noting the geometrical properties that T m j obtains its 
maximum value AC when 


dZ 


and that 


^ = 0 which occurs when T m = 0 

(^ ) 0 as ~ 00 


8„ 


and by defining a required value (XAC of this function for a specified value 
b e (0.0, +oo) of T m . Specifically 


y-y„ = s^ m )\ _ * aAC 

— b 


for a € (0.0, 1.0) 


then 


A 




\ 

1 

J 


and 


c = 


AC 

A 
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2.4.3.8 


Uniformly Distributed Random Function 


The Uniformly Distributed Random Function (see Figure 19) is expressed by 

*.(*.) s > - % = K,+ B,„Uran(lSEED,J] 

where A. and B, are input constants. 

is the m-th specified individual modelling function hj^ 't m j 
rather than a core deterministic modelling function j such 

as those defined in the above sub-paragraphs. 


ISEED, m is the input seed for the VAX FORTRAN uniformly distributed 
random number generator function RAN ( • ) for this m-th 
specified individual modelling function Although there 

are no restrictions on the value of this seed other than it is an 
INTEGERS variable, the best results are obtained when it is 
initially input as a large odd integer. 


w m 


is the periodic time argument for the m-th specified individual 


modelling function h m ( ). 


2.4.4 User Supplied Trajectory Model 

A position/slot in the Optimal Neural-Network Controller (ONNC) System was 
provided to allow the user to specifically define the trajectory data sets by designing 
and coding the USTATE subroutine which will satisfy the user's requirements. This 
USTATE routine will, however, need to be compatible with the ONNC System which 
reads one data set at a time commensurate with real time duty cycle methodology. 
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2.5 The Stand-Alone Optimal Neural-Network Controller System 

The Optimal Neural-Network Controller (ONNC) System was designed and 
developed to enable and facilitate accomplishment of the research described herein. 
The ONNC System is the means to execute the concepts described in the preceding 
sections. This system, which was originally coded in FORTRAN for a Digital 
Equipment Corporation (DEC) VAX/VMS system, currently resides/operates on a 
Compaq-DEC Alpha 4100 Model Processor. 


The general hierarchy showing the principal routines of the ONNC System is 
illustrated in Figure 20. The Input and other important parameters of this system are 
defined in Appendix A. The principal routines of the ONNC System are described in 
Appendix B and their listings are presented in Appendix C. 
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2.6 Results 


During the course of development and debug of the Optimal Neural-Network 
Controller (ONNC) System, several neural-network models which differed in the 
number of layers, number of nodes per specific layer, and the values of the 
constants in the associated specific neural-network filter functions were examined. 
Additionally, trajectory data was defined from both tabular test data and analytic 
trajectory synthesis. Variations in data acquisition frequency and window length 
for the sliding window of data acquisition were also considered. 


Two principal categories of cases were selected to be used to study this dynamic 
optimal neural-network controller process in detail. Simplified static test data from a 
40 x 80 Foot Wind Tunnel test performed for the BO-105 Individual Blade Control 
(IBC) test programme (Reference 20) was used to define the neural-network plant 
model constants in the first category of cases. A dynamic state propagation based 
on an analytically synthesised trajectory (i.e., a synthesised time history of 
the control 6 -vector and the measurement Z- vector) was used to define the 
neural-network plant model constants from which the control 8-vector was 
optimised in the second category of cases. 


The data for the first case (Reference 20) consisted of a table of values of the scalar 
vibration metric at 30 degree increments of the “two-per-rev” phase angle starting at 
0 degrees and ending at 360 degrees (i.e., at 0°, 30°, 60°, ••••, 360°). A 
1-12-4-1 neural-network function / 1 2 4 (•) was initially selected to 

N 

define a neural-network plant model which would represent this relationship. 
Threshold functions (i.e., Hyperbolic Tangents) were selected for the filter functions 
at the destination nodes of the first and second neural-network layers, whilst a 
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direct-pass function (i.e., a linear function) was selected for the output node (i.e., the 

destination node of the third neural-network layer). When convergence of the 

optimal constants selection process (see Section 2.2.4) for this 1-12-4-1 

neural-network model was not obtained, additional destination nodes were added to 

the first and second neural-network layers. After several nodal schemes were tried, 

a 1-14-5-1 neural-network function f\ 4 5 (•) was finally selected (see 

•V 

Figure 21 ) for the plant model. The motivation for this geometry was to provide filter 
functions at the ends and between the input tabular “two-per-rev" phase angles 
(i.e., at -15°, 15°, 45°, ••• • , 375°) at the destination nodes of the first layer. An 
additional destination node for the second layer was provided to handle the 
additional signals resulting from the increased destination nodes of the first layer. 
Convergence of the optimal constants selection process for this case was slow and 
not good. It appears as if the values of the vibration metric computed from the 
solution neural-network plant model approach either the upper or the lower table 
values, and that convergence scatters about multiple solutions to this optimal 
constants selection process. This is due to the fact that the optimal constants 
selection process as defined in Section 2.2.4 is in actuality an ill-posed problem with 
multiple solutions. An abbreviated listing of this first case is presented in 
Appendix D. 


The data for the second case was generated using a synthesised trajectory. A 
(3xl) control 0-vector and a (4xl) measurement Z-vector were assumed. 
Several neural-network geometrical structures were considered before selecting the 

/ 3-8-5-4 / x 

. (•) (see Figure 22) for the plant 

N 

model. Convergence of the optimal constants selection process for this case was 
also slow and not too good. It appears as if the values of the measurement Z-vector 
computed from the solution neural-network plant model approach either the upper or 


54 


the lower synthesised values, and that convergence scatters about multiple solutions 
to this optimal constants selection process. As in the first case this is due to the fact 
that the optimal constants selection process as defined in Section 2.2.4 is in actuality 
an ill-posed problem with multiple solutions. An abbreviated listing of this first case is 
presented in Appendix E. 


Although the ONNC System operated as planned and designed, and in particular, 
the optimisation algorithm proved to be quite robust and reliable for this application, 
convergence of the optimal constants selection process was slow and not too good. 
This is certainly not catastrophic however. The research of A. J. Meade, Jr. et al 
(References 11 through 18) points to a solution to this problem; specifically, addition 
of a regularising functional to the performance index J 2 of the optimal constants 
selection process. In addition, it is noted and emphasised that even though the 
optimal constants selection process is not fully converged, the optimal control 
selection process (see Section 2.2.5) can still provide a control 0 -vector solution 
which is better than that obtained by conventional methods. This will occur when the 
solution neural-network plant model is a better representation of the actual plant than 
the conventional model which is usually linear. Indeed as was pointed out at the end 
of Section 2.2.4, the operation of the optimisation algorithm itself (i.e., the selection 
of the convergence tolerance values and the maximum number of iterations in each 
optimisation process) can be optimised in the context of the dynamic data 
gathering - control optimisation process. It is emphasised that it is not necessarily 
necessary to converge fully to a solution for the neural-network plant model 
constants in order to make this procedure attractive. 
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3.0 CONCLUSIONS and RECOMMENDATIONS 


The Optimal Neural-Network Controller (ONNC) System which was developed as 
part of this research, operated as planned and designed. Although the sliding 
window of data acquisition and the control 0 -vector optimisation worked well, the 
update of the neural-network plant model by means of the optimal constants 
selection process was in general, slow to converge and/or converged to multiple 
solutions for the neural-network constants. This is due to the fact that the optimal 
constants selection process as defined in Section 2.2.4 is in actuality an ill-posed 
problem with multiple solutions. Fortunately as noted in Section 2.6, this is not 
necessarily catastrophic since the primary objective of this process is to determine a 
nearly optimal control 6 -vector regardless of the state of refinement of the plant 
model which is merely a means to that end. 


In addition to the general need to examine a greater diversity of rotorcraft cases and 
to experiment with the types of the neural-network filter functions and the values of 
their associated constants, three principal areas of improvement and development of 
the optimal constants selection process have been identified; these are: 


1. Implement a regularisation method in the optimal constants selection 
process such as that developed by A. J. Meade, Jr. et al (References 1 1 


through 18) which adds a regularisation functional A 


,[& (e ' c) ]'° 


the 


performance index J 2 of this process (see Section 2.2.4). This 
N 

regularised performance index J is 

R 

LMAX 


/= i 
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where 


CC is a specified weighting/smoothing constant; CX > 0. 


^sw, is the weighting coefficient for the /- th data set of the 
sliding window. 


A candidate regularisation functional was identified. This functional is a 
metric of the first partial derivatives with respect to C; specifically 


4&H -111 

b - 1 i e I « c i 




where the W R ^ are specified weighting constants; W R . ^ > 0. 


The motivation behind the selection of a first partial derivative metric as the 
functional to be adjoined to the performance index is simply that the 
process of driving the first partial derivatives to zero with the optimisation 
algorithm can act as a powerful smoothing agent for the neural-network 
optimal constants selection process. This latter property arises from the 
definition of a limit. Specifically, as the solution C* to the optimal 
constants selection process is approached, at some point there will exist a 
5-neighbourhood N 5 | C* j about C* ^ given an € > 0, whenever 

C e N s (cj. 

Jfje.c) 

dC 


< e 
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which simply means that the tendency of the neural-network plant model to 
deviate from the actual plant between evaluations of the neural-network 
constants will be small near the evaluation points. It is noted that the higher 
partial derivatives of the filter functions defined in Sections 2.2.2. 1 through 
2.2.2.4 are simple and readily evaluated. 

2. Implement an automatic nodal addition/deletion scheme in the optimal 
constants selection process such as that described in Section 2.2.4. 

3. Develop and implement concepts to automatically adjust the constants in 
the neural-network filter functions to provide better and more compatible 
scaling of these functions for the input trajectory data. 
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Figure 2. General Closed-Loop Rotorcraft Aeromechanical Behaviour 







63 


Figure 3. General Closed-Loop Neural-Network (N 2 ) Controller 
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Figure 4. Schematic for the 3-5-3-2 Neural-Network Function 
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Figure 5. Signold and Pulse Type Filter Functions and Their Derivatives 
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Figure 
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Figure 9. Sliding Window of Data Acquiaition 
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Figure 13. Serpentine Curve Function 
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Figure 14. Witch of Agnesi Function 
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Figure 15. Inverted Witch of Agnesi Function 
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Figure 16. Enveloped Sinusoidal Function 


S m (x) m y - % = CTanh(Ax) 



Figure 17. Hyperbolic Tangent Function 


g m (x) S y - y 0 = ^{CTanh(Ax)} = AC Seek 1 (Ax) 
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Figure 18. First Derivative of the Hyperbolic Tangent Function 
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Figure 20. General Organisation of the ONNC System 
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Figure 21. A 1-14-5-1 Neural-Network Model 






Figure 22. A 3- 8 -5 -4 Neural-Network Model 
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• CONST2 

6 

1 

28 

JJ 

43 

• CONST3 

6 

1 

31 

• JJECC(J) 

24 

• CONST4 

6 

1 

38 

• JJECL(J) 

21 

• CONST5 

6 

1 

42 

JJJ 

43 

CV(.) 

39 

• ICONC(I) 

28 

• JSEED1(L 3 ,L 2 ,L0 

18 

CV 0 (*) 

40 

• ICONNNC(I.J.K) 

25 

• JSEED2(L 3 ,L 2 .L0 

18 

CVBDC 

40 

• ICONNNL(I.J.K) 

22 

• JSEED3(L 2 ,L0 

19 

CVBDNNC 

40 

ICUT 

32 

K 

2 

CVBDNNL 

41 

• ICV(I) 

27 

K 

14 

CVSC(II) 

41 

ICVDEF 

42 

K 

21 
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Parameter List (Continued) 


Parameter Page 

K 23 

K 24 

K 26 

K 38 

K 43 

L 2 

L 6 

L 9 

L 11 

L 33 

L 43 

Li 2 

Li 6 

Li 19 

LI 33 

L 2 2 

L 2 19 

L2 33 

L 3 2 

L 3 19 

L3 33 

• LARGE1 6 

• LARGE2 6 

• LARGE3 6 

• LARGE4 6 

• LDELAY 9 

LMAX 33 

LMAX 44 

LSTEP 33 

LTBL 6 

LTBL 34 

• MITNC 29 

• MITNNNC 26 

• MITNNNL 23 

• MULT 7 

- NCON 2 

NCONC 44 

NCONNNC 44 

NCONNNL 44 

- NCV 2 

- NEC 3 


Parameter Page 

• NFUNCT(J.K) 14 

• NI(K) 15 

NICV 44 

- NIDIM 3 

NIJKCVC 44 

NIJKCVL 45 

- NIJKDIM 3 

• NJ(K) 15 

- NJDIM 3 

NJEC 45 

NJJECC 45 

NJJECL 45 

- NJKDIM 3 

• NK 15 

- NKDIM 3 

- NL1DIM 4 

• NL2(Li) 7 

• NL2(L 1 ) 19 

- NL21 4 

- NL2DIM 4 

• NL3(L 2 ,Li) 19 

•• NL321 4 

- NL3DIM 4 

- NLDIM 4 

- NLTBL 5 

• NNO-a.Lz.L,) 19 

•NNCID 11 

NNID 34 

• NNLID 9 

NNUP 34 

NNUPO 34 

• OMEGA(L 3 ,L 2 ,Li) 20 

ONE 48 

• OUTC 29 

• OUTNNC 26 

• OUTNNL 23 

• PERIOD(L 3 ,L 2i L 1 ) 20 

• PHASE(L 3 ,L 2 ,Li) 20 

• PHI(L 3 ,L 2> Li) 20 

PI 48 

PINDX 45 


Parameter Page 

• PSI(L 3 ,L 2 ,L|) 20 

PT100 
PT200 
PT300 
PT500 
PT800 
RTD 

• SCVC(I) 

• SCVNNC(I,J,K) 

• SCVNNL(I,J,K) 

• SMALL1 

• SMALL2 

• SMALL3 

• SMALL4 

• SMAXC(I) 

• STMODC 
• STMODL 

SUMSQ 
SUMSQW(L) 

T 

TABS 
~ TBLMAX 
~ TBLMAX 

• TCINIT 

• TCFINL 
• TCSTEP 
• TCTYPE 

TOUT 
-• TD(L) 

~ TD(L) 

TEN 
TENM2 
TENM3 
TENM6 
TENM8 
TENP2 
TENP3 
TENP6 
TENP8 

• TINIT 7 

• TFINL 7 
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Parameter List (Continued) 


Parameter 

Ease 

Parameter 

Page 

Parameter 

Page 

THREE 

48 

WNNL(JJJ) 

47 

~ XTBL(I.LTBL) 

36 

• TLINIT 

9 

• WTC(J) 

27 

• Y0(L3,L 2 ,L 1 ) 

20 

• TLFINL 

9 

• WTNNC(J) 

25 

YA(J) 

36 

• TLSTEP 

10 

• WTNNL(J) 

22 

~ YD(J.L) 

8 

• TLTYPE 

10 

• WTSNNC(L) 

13 

~ YD(J,L) 

37 

TREL 

35 

• WTSNNL(L) 

10 

YN(J) 

37 

TSTEP 

36 

• X0(L 3i L 2 ,L 1 ) 

20 

• YN0(J,K) 

15 

TTBL(LTBL) 

7 

XA(I) 

36 

YNN(J,K) 

38 

TTBL(LTBL) 

36 

— XD(I,L) 

8 

• YR1(L 3 ,L 2i L 1 ) 

20 

TWO 

48 

— XD(I,L) 

36 

• YR2(L 3i L 2 ,L 1 ) 

20 

TWOPI 

48 

• XNO(J.K) 

15 

• YR3(L 2 ,Li) 

20 

UNN(J.K) 

38 

XN(I) 

36 

~ YTBL(J.LTBL) 

8 

UPDATE 

12 

XNN(I,J,K) 

38 

— YTBL(J.LTBL) 

37 

WC(JJ) 

47 

— XTBL(I.LTBL) 

8 

ZERO 

48 

WNNC(JJJ) 

47 






• Denotes Data Defined by NAMELIST CDATA Input Data read from Subroutine INIT. 

The CDATA NAMELIST input is used to define the trajectory, 
optimisation, and neural-net models and options required to operate the 
OPTIMNN System. 

~ Denotes Data Defined by PARAMETER Statements. This Data defines the 
Dimensions of the Principal Arrays of the OPTIMNN System. 

Denotes Data Defined by NAMELIST CDATA Input Data read from Subroutine 
INIT, or by Directly Read On-Line Test Data, or by Internally 
Computed Data. This Data defines the “Actual” (Reference) Plant Input 
Vector and/or Output Vector at Specified Trajectory Time Points. 
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INPUT Parameters 


to the 

OPTIMNN Code 

• via Namelist CDATA 

« via PARAMETER Statements 

•••via Namelist DDATA, 
or On-Line Test Data, 
or Internally Computed Data 


• Denotes Data Defined by NAMELIST CDATA Input Data read from Subroutine INIT. 

The CDATA NAMELIST input is used to define the trajectory, 
optimisation, and neural-net models and options required to operate the 
OPTIMNN System. 

•• Denotes Data Defined by PARAMETER Statements. This Data defines the 
Dimensions of the Principal Arrays of the OPTIMNN System. 

•••Denotes Data Defined by NAMELIST CDATA Input Data read from Subroutine 
INIT, or by Directly Read On-Line Test Data, or by Internally 
Computed Data. This Data defines the “Actual” (Reference) Plant Input 
Vector and/or Output Vector at Specified Trajectory Time Points. 
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Input-G roup 1 

Dimensions of the Principal Arrays of the 
OPTIMNN System 


Default 

or 

Initial 

Parameter Value 


1 


J 1 


K 1 

L 1 


Li 1 


L 2 1 


Definition 


Index which Specifies the l-th Element Position in 
the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K” (INTEGERM). 

Index which Specifies the J-th Element Position in 
the Destination Vector for the Specific Neural- 
Network Layer specified by the index *K" 
(INTEGERM). 

Index which Specifies the K-th Specific Layer in the 
Neural-Network (INTEGERS). 

Index which Specifies the L-th Data Set in the Data 
Sliding Window (INTEGERM). 

Index which Assigns the Analytic Modelling 
Function for a specific (L3.La.Lt) to either the Plant 
Input Vector (i.e., the Plant Control Vector) or the 
Plant Output Vector (i.e., Plant Measurement/State 
Vector) (INTEGERM). 

= 1 Specifies that the Model applies to an element of 
the Plant Input Vector (i.e., the Plant Control 
Vector). 

= 2 Specifies that the Model applies to an element of 
the Plant Output Vector (i.e., Plant 
Measurement/State Vector). 

Index which Specifies the Element Number for the 
Plant Input Vector (i.e., the Plant Control Vector) if 
Li = 1, or the Plant Output Vector (i.e., Plant 
Measurement/State Vector) if = 2 (INTEGERM). 


L 3 1 Index which Specifies the Element Number of the 

Analytic Modelling Function for a specific (La.L^ 
(INTEGERM). 


•• NCON See Def Dimension of the Constraint Function Vector 

Arrays such as the CON(IIJK) and CON(III) Vectors 
(INTEGERM). 

NCON = NL2DIM 


~ NCV NL2DIM Dimension of the Optimisation Control Vector 

Arrays such as the CV(IJK) and CV(II) Vectors 
(INTEGERM). 

NCV = JMAX0(NL2DIM, NIDIM*NJDIM*NKDIM) 
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Default 

or 

Initial 

Parameter Value Definition 


*► NEC NL2DIM Dimension of the Optimisation End Conditions 

Vector Arrays such as the EC(JJJ) and EC(JJ) 
Vectors (INTEGERS). 

NEC = NL2DIM 

•• NIDIM 16 Dimension (i.e.,., the l.u.b) of the l-th Subscript of the 

Neural-Network Arrays (i.e., the subscript which 
defines the element position in the Origin Vector for the 
Neural-Network Layers) such as those defined in 
Groups 5 and B (e.g., the CW(i,J,K), and XNN(I,J,K) 
Arrays) but not necessarily limited to arrays defined in 
these groups (iNTEGER*4). 

*• NIJKDiM See Def Equivalent Single Dimension of the Three-Dimensional 

Neural-Network Arrays such as those defined in 
Groups 5 and B (e.g., the CW(I,J,K), and XNN(I,J,K) 
Arrays) but not necessarily limited to arrays defined in 
these groups (INTEGER*4). 

NIJKDIM = NIDIM*NJDIM*NKDIM 


•• NJDIM 16 Dimension (e.g., the l.u.b) of the J-th Subscript of the 

Neural-Network Arrays (i.e., the subscript which 
defines the element position in the Destination Vector 
for the Neural-Network Layers) such as those defined in 
Groups 5 and B (e.g., the AN(J,K), CW(I,J,K), 
UNN(J.K), and XNN(I,J,K) Arrays) but not necessarily 
limited to arrays defined in these groups (INTEGERS). 

•• NJKDIM See Def Equivalent Single Dimension of the Two-Dimensional 

Neural-Network Arrays such as those defined in 
Groups 5 and B (e.g., the AN(J,K), and UNN(J,K) 
Arrays) but not necessarily limited to arrays defined in 
these groups (INTEGERM). 

NJKDIM = NJDIM*NKDIM 


- NKDIM 4 Dimension (i.e., the l.u.b) of the K-th Subscript of the 

Neural-Network Arrays (i.e., the subscript which 
defines the Specific Neural-Network Layer) such as 
those defined in Groups 5 and B (e.g., the AN(J,K), 
CW(I,J,K), NI(K), NJ(K), UNN(J.K), and XNN(I,J,K) 
Arrays) but not necessarily limited to arrays defined in 
these groups (INTEGER*4). 
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Default 

or 

Initial 

Parameter Value Defi nition 

•• NL1 DIM 2 Dimension (e.g., the l.u.b) of the Li-th Subscript of the 

Analytic Trajectory Synthesis Arrays (i.e., the 
Subscript which Assigns the Analytic Modelling 
Function for a specific (L3.L2.L1) to either the Plant 
Input Vector if Li = 1 , or the Plant Output Vector if 
Li = 2) such as those defined in Group 6 (e.g., the 
A3(L 2 ,Li), IFUNCT(L 3> L 2 ,Li), NL2(L,), NL3(L 2 ,Li), and 
NN(L 3 ,L 2 ,Li) Arrays) but not necessarily limited to 
arrays defined in that group (INTEGERM). 

•• NL21 See Def Equivalent Single Dimension of the Two-Dimensional 

Neural-Network Arrays such as those defined in 
Groups 6 (e.g., the A3(L 2 ,Li) and NL3(L 2 ,Li) Arrays) 
but not necessarily limited to arrays defined in that group 
(INTEGERS). 

NL21 = NL2DIM*NL1DIM 


~ NL2DIM 12 Dimension (e.g., the l.u.b) of the L^th Subscript of the 

Analytic Trajectory Synthesis Arrays (i.e., the 
Subscript which the Element Number for the Plant 
Input Vector if Li = 1 , or the Plant Output Vector) 
such as those defined in Group 6 (e.g., the A3(L 2 ,L 1 ), 
IFUNCmavLs.L,), NL3(L 2 ,L 1 ), and NN(L 3 ,L 2 ,L 1 ) Arrays) 
but not necessarily limited to arrays defined in that group 
(INTEGERM). 

•• NL321 See Def Equivalent Single Dimension of the Three-Dimensional 

Analytic Trajectory Synthesis Arrays such as those 
defined in Group 6 (e.g., the IFUNCT(L 3 ,L 2 ,Li) and 
NN(L 3 ,L 2 ,Li) Arrays) but not necessarily limited to 
arrays defined in that group (INTEGERM). 

NL321 = NL3DIM*NL2DIM*NL1 DIM 

~ NL3DIM 7 Dimension (e.g., the l.u.b) of the Lj-th Subscript of the 

Analytic Trajectory Synthesis Arrays (i.e., the 
Subscript which Specifies the Element Number of the 
Analytic Modelling Function for a specific (L 2 ,Li)) 
such as those defined in Group 6 (e.g., the 
IFUNCT(L 3 ,L 2 ,L 1 ) and NN(L 3 ,L 2 ,L 1 ) Arrays) but not 
necessarily limited to arrays defined in that group 
(INTEGERM). 

~ NLDIM 300 Dimension (i.e., the l.u.b) of the L-th Subscript of the 

Data Set Arrays (i.e., the subscript which defines the 
Specific Data Set) in the Data Sliding Window such 
as those defined in Group A (e.g., the TD(L), XD(I,L), 
and YD(J,L) Arrays) but not necessarily limited to arrays 
defined in this group (INTEGERM). 
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Default 

or 

Initial 

Paramete r Value Definition 

«• NLTBL 600 Dimension (i.e., the l.u.b) of the LTBL-th Subscript of 

the Data Set Arrays (i.e., the subscript which defines 
the Specific Data Set) such as those defined in 
Group 2 (e.g., the TTBL(LTBL), XTBL(I.LTBL), and 
YTBL(J.LTBL) Arrays), but not necessarily limited to 
arrays defined in this group, in the Plant Model Data 
Table used when the “Actual Plant" is modelled using 
Routine TSTATE (INTEGERS). 
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Input Group 2 

Overall Trajectory (Excluding Learning and 
Control Trajectories) Propagation Parameters 


Parameter 

Default 

or 

initial 

Value 

Definition 

• C0NST1 

0.200 

Input Constant (REAL*8). 

• C0NST2 

0.500 

Input Constant (REAL*8). 

• C0NST3 

0.800 

Input Constant (REAL*8). 

• C0NST4 

1.200 

Input Constant (REAL*8). 

• C0NST5 

1.500 

Input Constant (REAL*8). 

1 

1 

Index which Specifies the l-th Element Position in 
the Plant Input Vectors (i.e., the Plant Control 
Vector) XA(I), XD(I,L), and XN(I) (INTEGERS). 

J 

1 

Index which Specifies the J-th Element Position in 
the Plant Output Vectors (i.e., the Plant 
Measurement/State Vector) YA(J), YD(J,L), and 
YN(J) (INTEGERS). 

L 

1 

Index which Specifies the L-th Data Set in the Data 
Sliding Window (INTEGERM). 

Li 

1 

Index which Assigns the Analytic Modelling 
Function for a specific (La^.L^ to either the Plant 
Input Vector (i.e., the Plant Control Vector) or the 
Plant Output Vector (i.e., Plant Measurement/State 
Vector) (INTEGERM). 

= 1 Specifies that the Model applies to an element of 
the Plant Input Vector (i.e., the Plant Control 
Vector). 

= 2 Specifies that the Model applies to an element of 
the Plant Output Vector (i.e.. Plant 
Measurement/State Vector). 

• LARGE1 

1.0 D+03 

Input Constant with a large value (REAL*8). 

• LARGE2 

1.0 D+06 

Input Constant with a large value (REAL*8). 

• LARGE3 

1.0 D+09 

Input Constant with a large value (REAL*8). 

• LARGE4 

1.0 D+12 

Input Constant with a large value (REAL*8). 

LTBL 

1 

Index which Specifies the LTBL-th Data Set in the 
Plant Model Data Table when the “Actual Plant” is 
modelled using Routine TSTATE (INTEGERM). 
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• MULT 0 Subsequent Case Flap. MULT is automatically reset 

to zero after each case is completed. It is necessary to 
input MULT equal to a positive integer value if it is 
desired to run a subsequent case with new NAMELIST 
CDATA values. (INTEGERS). 

• NL2(L 1 ) 1 Total Number of Elements in the Plant Input Vector 

(i.e., the Plant Control Vector) if Li = 1, or the Plant 
Output Vector (i.e., Plant Measurement/State Vector) 
if Li = 2; NOT to be confused with NL2DIM, the 
Dimension of the L 2 -th Subscript of the Analytic 
Trajectory Synthesis Arrays (INTEGER*4). 

• SMALL 1 1 .0 D-03 Input Constant with a small value (REAL*8). 

• SMALL2 1 .0 D-06 Input Constant with a small value (REAL*8). 

• SMALL3 1 .0 D-09 Input Constant with a small value (REAL*8). 

• SMALL4 1 .0 D-12 Input Constant with a small value (REAL*8). 

«• TBLMAX 1 The Number of Data Sets (i.e., the Maximum Value 

that the index LTBL can have) in the Plant Model 
Data Table (INTEGERS). 

1 < LTBL < TBLMAX 

TD(L) Either the Absolute Time (TABS) or the Relative 

Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE corresponding to the “Actual” (Reference) 
Plant defined in the L-th Data Set in the Data Sliding 
Window (REAL*8). 

• TINIT 0.000 Initial Absolute Time for the Entire Process (REAL*8). 

• TFINL 0.000 Final Absolute Time for the Entire Process (REAL*8). 

•- TTBL(LTBL) Either the Absolute Time (TABS) or the Relative 

Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE corresponding to the “Actual” (Reference) 
Plant defined in the LTBL-th Data Set of the Plant 
Model Data Table used when the “Actual Plant” is 
modelled using Routine TSTATE (REAL*8). 
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Input Group 2 (Continued) 

Overall Trajectory (Excluding Learning and 
Control Trajectories) Propagation Parameters 


Default 

or 

Initial 

Parameter Value Definition 


••• XD(I,L) 


•- XTBL(I,LTBL) 


•- YD(J,L) 


•- YTBL(J,LTBL) 


The l-th Element of the Input Vector (i.e., the 
Control Vector) to the “Actual” (Reference) Plant 
defined in the L-th Data Set in the Data Sliding 
Window (REAL*8). 

The l-th Element of the Input Vector (i.e., the 
Control Vector) to the “Actual” (Reference) Plant 
defined in the LTBL-th Data Set of the Plant Model 

Data Table used when the “Actual Plant” is modelled 
using Routine TSTATE (REAL*8). 

The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the “Actual” 
(Reference) Plant defined in the L-th Data Set in the 
Data Sliding Window (REAL*8). 

The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the “Actual” 
(Reference) Plant defined in the LTBL-th Data Set 
of the Plant Model Data Table used when the “Actual 
Plant" is modelled using Routine TSTATE (REAL*8). 
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Input Group 3 

Learning Trajectory Propagation Parameters 


Pa rameter 

• DLFREQ 

• DLLGTH 
L 

• LDELAY 

• NNLID 

• STMODL 


• TLINIT 

• TLFINL 


Default 

or 

Initial 

Value Definition 


1 Data Set Read Frequency After the First Neural-Net 

(NN) CW(l,J,K)s Update During the Learning Trajectory 
(INTEGERS). 

10 Window Length/Size During the Learned Trajectory; 
Number of Read Data Sets Contained in a Window 
During the Learned Trajectory (INTEGER*4). 

1 Index which Specifies the L-th Data Set in the Data 

Sliding Window (INTEGERS). 

0 Data Set Read Delay Counter Limit During the 
Learning Trajectory (INTEGERM). 

1 Neural-Net (NN) CW(l,j,K)s Update 
Frequency/Inhibit Flag for the Learning Trajectory 
(INTEGERS). 

< 0 Do Not Update NN CW(l,J,K)s during the 
Learning Trajectory. 

> 0 Update NN CW(l,J,K)s every NNLID times during 
the Learning Trajectory. 

1 Specifies the “Actual” (Reference) Plant Model 

Option during the Learning Trajectory (INTEGER*4). 

= 1 Synthesise the “Actual” (Reference) Plant Model 
by Combining Selected Individual Analytic 
Models, that is Model the “Actual” Plant by using 
Routine AST ATE. 

= 2 Define the “Actual” (Reference) Plant Model 
directly from On-Line Test Data, that is Model the 
“Actual” Plant by using Routine DSTATE. 

= 3 Define the “Actual" (Reference) Plant Model from 
Stored Data Tables, t hat i s Model the “Actual” 
Plant by using Routine TSTATE. 

= 4 Define the Actual (Reference) Plant Model from a 
User Supplied Model, that is Model the “Actual” 
Plant by using Routine USTATE. 

0.000 Either the Initial value of the Absolute Time (i.e., 
TABS) or the Initial value of the Relative Time (i.e., 
TREL) as appropriately defined by TLTYPE for the 
Learning Trajectory (REAL*8). 

0.000 Either the Final value of the Absolute Time (i.e., 
TABS) or the Final value of the Relative Time (i.e., 
TREL) as appropriately defined by TLTYPE for the 
Learning Trajectory (REAL*8). 
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Input Group 3 (Continued) 
Learning Trajectory Propagation Parameters 


Parameter 

• TLSTEP 

• TLTYPE 


• WTSNNL(L) 


Default 

or 

Initial 

Value Definition 


1.000 Time Step for the Learning Trajectory (REAL*8). 

0 Time Type Definition Flag for the Learning Trajectory 
(INTEGERS). 

<0 T = the Current Absolute Time (i.e., T = TABS), 
that is time is measured from the Start of the Entire 
Process (i.e., time is measured from that defined 
by TLINIT) 

>0 T = the Current Relative Time (i.e., T = TREL), 
that is time is measured from the Start of the 
Learning Trajectory (i.e., time is measured from that 
defined by TLINIT). 

1 .000 Weighting Coefficient of the L-th Data Set in the 
Data Sliding Window during the Learning T rajectory 
(REAL*8). 
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Input Group 4 

Controlled Trajectory Propagation Parameters 


Parameter 

• CDELAY 

• CVTID 

• DCFREQ 

• DCLGTH 

• ISTEPO 
L 

• NNCID 

• STMODC 


Default 

or 

Initial 

Value Definition 


0 Data Set Read Delay Counter Limit During the 
Controlled Trajectory (INTEGERM). 

1 Plant Input Vector (i.e., the Plant Control Vector) 
XA(«) Update Inhibit Flag for the Controlled 
Trajectory (INTEGERM). 

<0 Do Not Update XA(«) during the Controlled 
Trajectory. 

> 0 Update XA(») every CVTID times during the 

Controlled T rajectory. 

1 Data Set Read Frequency After the First Neural-Net 

(NN) CW(l,J,K)s Update During the Controlled 
Trajectory (INTEGERM). 

10 Window Length/Size During the Controlled Trajectory; 
Number of Read Data Sets Contained in a Window 
During the Controlled Trajectory. If DCLGTH is Input 
Less Than or Equal to Zero, DCLGTH is Reset Equal 
To DLLGTH (INTEGERM). 

1 Step Reset Inhibit Flag for the Controlled Trajectory 

(INTEGERM). 

= 0 and only if STMODC * 2 or 3, Reset ISTEP to 
ISTEP = 1 at the start of the Controlled T rajectory. 

* 0 or if STMODC = 2 or 3, Reset ISTEP to 
STEP = ISTEP + ISTEPO at the start of the 
Controlled Trajectory. 

1 Index which Specifies the L-th Data Set in the Data 

Sliding Window (INTEGERM). 

1 Neural-Net (NN) CW(l,J,K)s Update 

Frequency/Inhibit Flag for the Controlled Trajectory 
(INTEGERM). 

<0 Do NM Update NN CW(l,J,K)s during the 
Controlled Trajectory. 

> 0 Update NN CW(l,J,K)s every NNLID times during 

the Controlled T rajectory. 

1 Specifies the “Actual” (Reference) Plant Model 

Option during the Controlled Trajectory (INTEGERM). 

= 1 Synthesise the “Actual” (Reference) Plant Model 
by Combining Selected Individual Analytic 
Models, that is Model the “Actual” Plant by using 
Routine AST ATE. 
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Input Group 4 (Continued) 
Controlled Trajectory Propagation Parameters 


Parameter 

• STMODC 


• TCINIT 

• TCFINL 

• TCSTEP 

• TCTYPE 


• UPDATE 


Default 

or 

Initial 

Value Definition 

1 (Continued) 

= 2 Define the “Actual” (Reference) Plant Model 

directly from On-Line Test Data, that is Model the 
“Actual” Plant by using Routine DSTATE. 

= 3 Define the “Actual” (Reference) Plant Model from 
Stored Data Tables, that is Model the “Actual” 
Plant by using Routine TSTATE. 

= 4 Define the Actual (Reference) Plant Model from a 
User Supplied Model, that is Model the “Actual” 
Plant by using Routine USTATE. 

0.000 Either the Initial value of the Absolute Time (i.e., 

TABS) or the Initial value of the Relative Time (i.e., 
TREL) as appropriately defined by TCTYPE for the 
Controlled Trajectory (REAL*8). 

0.000 Either the Final value of the Absolute Time (i.e., 
TABS) or the Final value of the Relative Time (i.e., 
TREL) as appropriately defined by TCTYPE for the 
Controlled Trajectory (REAL*8). 

1 .000 Time Step for the Controlled T rajectory (REAL*8). 

0 Time Type Definition Flag for the Learning Trajectory 
(INTEGERS). 

<0 T = the Current Absolute Time (i.e., T * TABS), 
that is time is measured from the Start of the Entire 
Process (i.e., time is measured from that defined 
by TLINIT) 

>0 T s the Current Relative Time (i.e., T = TREL), 
that is time is measured from the Start of the 
Controlled Trajectory (i.e., time is measured from 
that defined by TCINIT). 

1 Sliding Window First Data Set Update Flag for the 

Controlled Trajectory (INTEGER*4). 

< 0 Do Not Update the First Data Set (L = 1 ) of the 
Sliding Window Table (i.e., XD(I,1) and YD(J,1)) 
to those determined by the Current Control 
Optimisation (i.e., XN(I) and YN(J)). 

> 0 Update the First Data Set (L = 1) of the Sliding 
Window Table (i.e., XD(I,1) and YD(J,1)) to those 
determined by the Current Control Optimisation 
(i.e., XN(I) and YN(J)). 
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Input Group 4 (Continued) 
Controlled Trajectory Propagation Parameters 


Parameter 

• WTSNNC(L) 


Default 

or 

Initial 

Value Definition 


1.000 Weighting Coefficient of the L-th Data Set in the 
Data Sliding Window during the Controlled Trajectory 
(REAL*8). 
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Input Group 5 
Neural Network Parameters 


Parameter 

Default 

or 

Initial 

Value 

Definition 

AN(J,K) 

0.500 

A Constant of the Pass-Through Function (Node 
Filter) Model at the J-th Exit (Destination) 
Position for the K-th Neural-Net Layer (REAL*8). 

BN(J,K) 

0.500 

A Constant of the Pass-Through Function (Node 
Filter) Model at the J-th Exit (Destination) 
Position for the K-th Neural-Net Layer (REAL*8). 

CN(J,K) 

1.000 

A Constant of the Pass-Through Function (Node 
Filter) Model at the J-th Exit (Destination) 
Position for the K-th Neural-Net Layer (REAL*8). 

CW(I,J,K) 

1.000 

Neural-Signal Weighting Coefficient associated 
with the Entry Signal XNN(I,J,K) to the K-th 
Neural-Net Layer from the l-th Entry (Origin) 
Position directed to the J-th Exit (Destination) 
Position (REAL*8). 

DN(J,K) 

-1.0D+06 

A Constant of the Pass-Through Function (Node 
Filter) Model at the J-th Exit (Destination) 
Position for the K-th Neural-Net Layer (REAL*8). 

1 

1 

Index which Specifies the i-th Element Position in 
the Origin Vector for the Specific Neural-Network 
Layer specified by the index K (INTEGER*4). 

J 

1 

Index which Specifies the J-th Element Position 
in the Destination Vector for the Specific Neural- 
Network Layer specified by the index K 
(INTEGER*4). 

K 

1 

Index which Specifies the K-th Specific Layer in 
the Neural-Network (INTEGERS). 

NFUNCT(J.K) 

0 

Specifies the Pass-Through Function (Node 
Filter) Model at the J-th Exit (Destination) 
Position for the K-th Neural-Net Layer 


(INTEGERS). 

= 0 Specifies the No-Pass (i.e., the Constant 
Function) Node Filter Function defined by 
Routine PFNCTOO. 

= 1 Specifies the Direct-Pass (i.e., the Linear 
Function) Node Filter Function defined by 
Routine PFNCT01 . 

= 2 Specifies the Hyperbolic Tangent (i.e., the 
Threshold Function) Node Filter Function 
defined by Routine PFNCT02. 
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input Group 5 (Co ntin ue d ) 

Neural Network Parameters 


Parameter 

NFUNCT(J.K) 

NI(K) 

NJ(K) 

NK 

XNO(J,K) 

YNO(J,K) 


Default 

or 

Initial 

Value Definition 


0 (Continued) 

= 3 Specifies the First Derivative of the 
Hyperbolic Tangent (i.e., the Pulse 
Function) Node Filter Function defined by 
Routine PFNCT03. 

3 Total Number of Elements in the Origin Vector 

(i.e., the Total Number of Origin Positions) for the 
Specific Neural-Network Layer specified by the index 
K (INTEGERS). 

1 Total Number of Elements in the Destination 

Vector (i.e., the Total Number of Destination 
Positions) for the Specific Neural-Network Layer 
specified by the index K (INTEGER*4). 

2 Total Number of Layers (i.e., the l.u.b. of the index 
K) in the Neural-Network (INTEGERM). 

0.000 The Input Signal UNN(J,K) Horizontal Translation 
Constant for the Origin of the Pass-Through 
Function (Node Filter) at the J-th Exit 
(Destination) Position for the K-th Neural-Net 
Layer (REAL*8). 

0.000 The Exit Signal YNN(J,K) Vertical Translation 
Constant for the Origin of the Pass-Through 
Function (Node Filter) at the J-th Exit 
(Destination) Position for the K-th Neural-Net 
Layer (REAL*8). 


Appendix A: Parameters - 15 



Input Group 6 

Analytic Trajectory Synthesis Parameters 


Parameter 

A(L 3 .L 2 ,Li) 

A1(L 3 ,L 2 ,Li) 

A2(I_3,L2,Li) 

A3(L 2 ,L 1 ) 

ALPHA(L 3 ,L 2) L 1 ) 

B(L 3 ,L 2 ,Li) 

BKLa.La.L,) 

B2(L 3 ,L 2 ,I_i) 

B3(L 2) Li) 

c(l 3 ,l 2 ,l 1 ) 

C1(L 3 ,L 2 ,Li) 


Default 

or 

Initial 

Value Definition 


0.500 A Constant of the Analytic Trajectory Modelling 
Functions. (REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called as a Primary Analytic Model. 
(REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called to Randomise an Individual 
Primary Analytic Model. (REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called to Randomise the Combined 
Primary Analytic Models. (REAL*8). 

1 .000 The Convergence/Divergence Constant of the 
Exponential Part of the Enveloped Sinusoidal 

Analytic Trajectory Modelling Function (REAL*8). 

0.500 A Constant of the Analytic Trajectory Modelling 
Functions. (REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called as a Primary Analytic Model. 
(REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called to Randomise an Individual 
Primary Analytic Model. (REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called to Randomise the Combined 
Primary Analytic Models. (REAL*8). 

0.250 A Constant of the Analytic Trajectory Modelling 
Functions. (REAL*8). 

0.000 A Constant of the Random Uniform Distribution 
Analytic Trajectory Modelling Function when this 
function is called as a Primary Analytic Model. 
(REAL*8). 
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Analytic Traiectoi 


mthesis Parameters 


Default 

or 

Initial 

Parameter Value Definition 

• C2(L3,L 2 ,Li) 0.000 A Constant of the Random Uniform Distribution 

Analytic Trajectory Modelling Function when this 
function is called to Randomise an Individual 
Primary Analytic Model. (REAL*8). 

• C3(L 2 ,L 1 ) 0.000 A Constant of the Random Uniform Distribution 

Analytic Trajectory Modelling Function when this 
function is called to Randomise the Combined 
Primary Analytic Models. (REAL*8). 

• D(L 3 ,L 2 ,L 1 ) *1 .0D+06 A Constant of the Analytic Trajectory Modelling 

Functions. (REAL*8). 

• Di(L 3 ,L 2 ,Li) 0.000 A Constant of the Random Uniform Distribution 

Analytic Trajectory Modelling Function when this 
function is called as a Primary Analytic Model. 
(REAL*8). 

• D2(L 3 ,L 2 ,L 1 ) 0.000 A Constant of the Random Uniform Distribution 

Analytic Trajectory Modelling Function when this 
function is called to Randomise an Individual 
Primary Analytic Model. (REAL*8). 

• D3(L 2 ,L 1 ) 0.000 A Constant of the Random Uniform Distribution 

Analytic Trajectory Modelling Function when this 
function is called to Randomise the Combined 
Primary Analytic Models. (REAL*8). 

• IFUNCTfLs.L^.Li) 0 Specifies the Analytic Function Model for a 

Specific (L^.L,) (INTEGER*4).. 

= 0 Specifies the Random Uniform Distribution 
Function defined by Routine ASTATRAN. 

= 1 Specifies the Linear Function (i.e., the Ramp 
Function) defined by Routine ASTATE01 . 

= 2 Specifies the Serpentine Curve Function 
defined by Routine ASTATE02. 

= 3 Specifies the Witch of Agnesi Function 
defined by Routine ASTATE03. 

= 4 Specifies the Inverted Witch of Agnesi 

Function defined by Routine ASTATE04. 

= 5 Specifies the Enveloped Sinusoidal Function 
defined by Routine ASTATE05. 

= 6 Specifies the Hyperbolic Tangent Function 
(i.e., the Threshold Function) defined by 
Routine ASTATE06. 

= 7 Specifies the First Derivative of the 
Hyperbolic Tangent Function (i.e., the 
Pulse Function) defined by Routine 
ASTATE07. 
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Input Group 6 (Continued) 
Analytic Trajectory Synthesis Parameters 


Default 

or 

Initial 

Parameter Value Definition 


• ISEED1 (L 3 .L 2 .L 1 ) 78985723 The Seed required for the First Call to the VAX/VMS 

System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called as a Primary 
Analytic Model. This seed is updated automatically 
upon exit from RAN. Although there are no 
restrictions on the value of this seed other than that it 
is an INTEGER*4 variable, the best results are 
obtained when it is initially input as a large odd 
integer (INTEGERS). 

• ISEED2(L 3 ,L 2 ,L 1 ) 81692875 The Seed required for the First Call to the VAX/VMS 

System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called to 
Randomise an Individual Primary Analytic Model. 
This seed is updated automatically upon exit from 
RAN. Although there are no restrictions on the value 
of this seed other than that it is an INTEGER*4 
variable, the best results are obtained when it is 
initially input as a large odd integer (INTEGER*4). 

• ISEED3(L 2 ,L 1 ) 72919329 The Seed required for the First Call to the VAX/VMS 

System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called to 
Randomise the Combined Primary Analytic Models. 
This seed is updated automatically upon exit from 
RAN. Although there are no restrictions on the value 
of this seed other than that it is an INTEGER*4 
variable, the best results are obtained when it is 
initially input as a large odd integer (INTEGERM). 

• JSEED1(L 3 ,L 2 ,L 1 ) 95428381 The Seed required for the Second Call to the 

VAX/VMS System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called as a Primary 
Analytic Model. This seed is updated automatically 
upon exit from RAN. Although there are no 
restrictions on the value of this seed other than that it 
is an INTEGERM variable, the best results are 
obtained when it is initially input as a large odd 
integer (INTEGERS). 

• JSEED2(L 3 ,L 2 ,L 1 ) 68377297 The Seed required for the Second Call to the 

VAX/VMS System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called to 
Randomise an Individual Primary Analytic Model. 
This seed is updated automatically upon exit from 
RAN. Although there are no restrictions on the value 
of this seed other than that it is an INTEGERS 
variable, the best results are obtained when it is 
initially input as a large odd integer (INTEGER*4). 
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Input Group 6 (Continued) 
Analytic Trajectory Synthesis Parameters 


Parameter 

JSEED3(l_2,Li) 

L, 

L2 

La 

NL2(L,) 

NL3(L2,Li) 

NNtLa.Lz.Ln) 


Default 

or 

Initial 

Value Definition 


89672847 The Seed required for the Second Caii to die 
VAX/VMS System Subroutine RAN from Subroutine 
ASTATRAN when ASTATRAN is called to 
Randomise the Combined Primary Analytic Models. 
This seed is updated automatically upon exit from 
RAN. Although there are no restrictions on the value 
of this seed other than that it is an INTEGERS 
variable, the best results are obtained when it is 
initially input as a large odd integer (INTEGERS). 

1 Index which Assigns the Analytic Modelling 
Function for a specific (L3.L2.LO to either the Plant 
Input Vector (i.e., the Plant Control Vector) or the 
Plant Output Vector (i.e,, Plant Measurement/State 
Vector) (INTEGERS). 

= 1 Specifies that the Model appiies to an element 
of the Plant Input Vector (i.e., the Plant 
Control Vector). 

= 2 Specifies that the Model applies to an element 
of the Plant Output Vector (i.e., Plant 
Measurement/State Vector). 

1 Index which Specifies the Element Number for the 
Plant input Vector (i.e., the Plant Control Vector) if 
Li = 1, or the Plant Output Vector (i.e., Plant 
Measurement/State Vector) if Li = 2 (INTEGER*4). 

1 Index which Specifies the Element Number of the 
Analytic Modelling Function for a specific (L 2 ,Li) 
(INTEGERS). 

1 Total Number of Elements in the Plant Input 
Vector (i.e., the Plant Control Vector) if Li = 1 , or 
the Plant Output Vector (i.e., Plant 
Measurement/State Vector) if Li = 2; NOT to be 
confused with NL2DIM, the Dimension of the L 2 -th 
Subscript of the Analytic Trajectory Synthesis Arrays 
(INTEGER‘4). 

1 Total Number of Analytic Modelling Functions 

for a specific (L 2 ,Li); NOT to be confused with 
NL3DIM, the Dimension of the L 3 -th Subscript of the 
Analytic Trajectory Synthesis Arrays (INTEGER*4). 

1 .000 Harmonic Number of the Primary Frequency (i.e., 
the Coefficient of the Primary Frequency) of the 
Sinusoidal Part of the Enveloped Sinusoidal 
Analytic Trajectory Modelling Function (REAL*8). 
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Default 

or 

Initial 

Parameter Value Definition 


• OMEGA(L3,L 2 ,Li) 2 tc 2n times the Primary Frequency (or the Period if 

NN(L 3 ,L 2 ,Li) S 10 8 ) of the Sinusoidal Part of the 
Enveloped Sinusoidal Analytic Trajectory Modelling 
Function (REAL*8). 

• PERIOD(L 3 ,L 2 ,Lt) 1.0x10 +1 ° Period of the Analytic Trajectory Modelling 

Function defined for a specific (L3.L2.L1) (REAL*8). 

• PHASE(L 3 ,L 2 ,L 1 ) 0.000 Either the Absolute Time (TABS) or the Relative 

Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE of the Start of a Cycle of the Analytic 
Modelling Function defined for a specific (L 3 ,L 2l L 1 ) 
(REAL*8). 

• PHI(L 3 ,L 2 ,L 1 ) 0.000 The Phase Angle of the Sinusoidal Part of the 

Enveloped Sinusoidal Analytic Trajectory Modelling 
Function (REAL*8). 

• PSI(L 3 ,L 2 ,L 1 ) 0.000 The Phase Angle of the Exponential Part of the 

Enveloped Sinusoidal Analytic Trajectory Modelling 
Function (REAL*8). 

• X0(L 3 ,L 2 ,L 1 ) 0.000 Either the Absolute Time (TABS) or the Relative 

Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE of the Origin of the Analytic Trajectory 
Modelling Function defined for a specific (L 3 ,L 2 ,L 1 ) 
(REAL*8). 

• Y0(L 3 ,L 2 ,L|) 0.000 A Constant added to the Analytic Trajectory 

Modelling Function defined for a specific (L 3 ,L 2 ,L 1 ) 
(REAL*8). 

• YR1(L 3 ,L 2 ,L|) 0.000 A Constant added to the Random Uniform 

Distribution Analytic Trajectory Modelling Function 
defined for a specific (L 3 ,L 2 ,Li) when this function is 
called as a Primary Analytic Model. (REAL*8). 

• YR2(L 3 ,L 2 ,L|) 0.000 A Constant added to the Random Uniform 

Distribution Analytic Trajectory Modelling Function 
defined for a specific (L3.L3.Lt) when this function is 
called to Randomise an Individual Primary 
Analytic Model. (REAL*8). 

• YR3(L 2 ,Li) 0.000 A Constant added to the Random Uniform 

Distribution Analytic Trajectory Modelling Function 
defined for a specific (L3.L3.Lt) when this function is 
called to Randomise the Combined Primary 
Analytic Models. (REAL*8). 
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Input Group 7 

Neural-Net Optimisation Parameters Purina the 
Learning Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


Control Vector Sub-Group 

I 1 Index which Specifies the l-th Element Position in 

the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K” (INTEGER*4). 

IJKCVL(I,J,K) 0 Control Vector Identification Flag. This flag 

vector specifies whether or not the Neural-Signal 
Weighting Coefficient (i.e., CW(I,J,K)) associated 
with the Entry Signal XNN(I,J,K) to the K-th Neural- 
Net Layer from the l-th Entry (Origin) Position 
directed to the J-th Exit (Destination) Position will 
be an element in the Optimisation Control Vector 
CV(«) (INTEGERS). 

< 0 CW(I,J,K) IS NOT an Element of CV(*). 

> 0 CW(I,J,K) IS an Element of CV(*). 


J 1 Index which Specifies the J-th Element Position 

in the Destination Vector for the Specific Neural- 
Network Layer specified by the index “K" 
(INTEGERS). 

K 1 Index which Specifies the K-th Specific Layer in 

the Neural-Network (INTEGERS). 


SCVNNL(I,J,K) 1.000 The Vector of Scaling Coefficients for the 

elements of the Neural-Signal Weighting 
Coefficient Matrix (i.e., CW(I,J,K)) required by the 
Optimisation Process (REAL* 8). 


End Conditions Vector Sub-Group 


J 

1 

Index which Specifies the J-th Element Position 
in the Plant Output Vectors (i.e., the Plant 
Measurement/State Vector) YA(J), YD(J,L), and 
YN(J) (INTEGER*4). 

JJECL(J) 

0 

End Conditions Identification Flag. This flag 
vector specifies whether or not [YN(J) - YA(J)J 
(i.e., the difference between the J-th Elements or 
the Measurement/State Vectors) will be an 
element in the Optimisation End Conditions Vector 
EC(») and if WTNNL(J)*[YN(J) - YA(J)] 2 will be 
a term in the Performance Index P 1 N D X 



(INTEGER*4). 
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Input Group 7 (Continued) 

Neural-Net Optimisation Parameters During the 
Learning Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


End Conditions Vector S ub-Group (Continued) 

JJECL(J) (Continued) 

< 0 [YN(J) - YA(J)1 IS NOT an Element of EC(*) 
and WTNNL*[YN(J) - YA(J)] 2 IS NOT a 
term in PINDX. 

> 0 [YN(J) - YA(J)] IS an Element of EC(*) and 
WTNNL*[YN(J) - YA(J)]2 IS a term in 
PINDX. 


WTNNL(J) 1.000 Weighting Coefficient element in the 

WTN N L( J )*[YN(J) - YA(J)] 2 term in the 
Performance Index PINDX (REAL* 8). 


Constraint Vector Sub-Group 

AMAXNNL(I,J,K) 100.00 The Least Upper Bounds (l.u.b.) of the Control 

Vector Elements (REAL* 8). 

CW(I,J,K) < AMAXNNL(I,J,K) 


AMINNNL(I,J,K) -100.00 The Greatest Least Bounds (g.I.b.) of the Control 

Vector Elements (REAL* 8). 

AMINNNL(UK) < CW(I,J,K) 

I 1 Index which Specifies the l-th Element Position in 

the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K" (INTEGER*4). 


ICONNNL(l,J,K) 0 Constraint Function Vector Identification Flag. 

This flag vector specifies whether or not the Neural- 
Signal Weighting Coefficient (i.e., CW(I,J,K)) 
associated with the Entry Signal XNN(I,J,K) to the 
K-th Neural-Net Layer from the l-th Entry 
(Origin) Position directed to the J-th Exit 
(Destination) Position will be constrained by an 
element of the Constraint Function Vector CON(») 
(INTEGER*4). Currently NOT an option 

< 0 CW(I,J,K) IS NOT Constrained by an 
element of CON(*). 

> 0 CW(I,J,K) IS Constrained by an element of 
CON(*). 
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Input Group 7 (Continued) 

Neural-Net Optimisation Parameters During the 
Learning Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


Constraint Vector Sub-Group (Continued) 

J 1 Index which Specifies the J-th Element Position 

in the Destination Vector for the Specific Neural- 
Network Layer specified by the index “K” 
(INTEGERS). 

K 1 Index which Specifies the K-th Specific Layer in 

the Neural-Network (INTEGERS). 

Optimisation Parameters Sub-Group 

IOPTNNL 0 Gradient Evaluation Option Specification Flag 

(INTEGER*4). 

< 0 No Neural-Net Update/Optimisation. 

= 1 The Gradients required during the Neural-Net 
Update/Optimisation Process are evaluated 
using a Finite Differences Method. 

= 2 The Gradients required during the Neural-Net 
Update/Optimisation Process are evaluated 
using an Analytic Method. Currently NOT 
an option 

MITNNNL 200 The Maximum Number of Optimisation Iterations 

allowed before the Optimisation Process is 
terminated. (INTEGER‘4). 

OUTNNL 0 The Optimisation Iteration Output Level 

Specification Rag. (INTEGERS). 

= 0 No Optimisation Iteration Information is 
written. 

= 1 Only the Final Optimisation Iteration 
Convergence Information is written. 

= 2 One Line of Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 

= 3 Detailed Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 
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Input Group 8 

Neural-Net Optimisation Parameters Purina the 
Controlled Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


Control Vecto r Sl i fefi tflUP 

I 1 Index which Specifies the l-th Element Position in 

the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K” (INTEGER*4). 

IJKCVC(I,J,K) 0 Control Vector Identification Flag. This flag 

vector specifies whether or not the Neural-Signal 
Weighting Coefficient (i.e., CW(I,J,K)) associated 
with the Entry Signal XNN(I,J,K) to the K-th Neural- 
Net Layer from the l-th Entry (Origin) Position 
directed to the J-th Exit (Destination) Position will 
be an element in the Optimisation Control Vector 
CV(*) (INTEGERM). 

< 0 CW(I,J,K) IS NOT an Element of CV (•). 

> 0 CW(I,J,K) IS an Element of CV(«). 


J 1 Index which Specifies the J-th Element Position 

in the Destination Vector for the Specific Neural- 
Network Layer specified by the index “K” 
(INTEGERM). 

K 1 Index which Specifies the K-th Specific Layer in 

the Neural-Network (INTEGERM). 


SCVNNC(I,J,K) 1.000 The Vector of Scaling Coefficients for the 

elements of the Neural-Signal Weighting 
Coefficient Matrix (i.e., CW(I,J,K)) required by the 
Optimisation Process (REAL* 8). 


End Conditions Vector Sub-Group 

J 1 Index which Specifies the J-th Element Position 

in the Plant Output Vectors (i.e., the Plant 
Measurement/State Vector) YA(J), YD(J,L), and 
YN(J) (INTEGERM). 

JJECC(J) 0 End Conditions Identification Flag. This flag 

vector specifies whether or not [YN(J) - YA(J)1 
(i.e., the difference between the J-th Elements or 
the Measurement/State Vectors) will be an 
element in the Optimisation End Conditions Vector 
EC(*) and if WTNNC(J)*[YN(J) - YA(J)] 2 will be 
a term in the Performance Index PINDX 
(INTEGERM). 
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timisation Parameters Purina the 


Controlled Trajectory 


Parameter 


Default 

or 

Initial 

Value 


Definition 


JJECC(J) 


(Continued) 


< 0 [YN(J) - YA(J)1 IS NOT an Element of EC (•) 
and WTNNC*[YN(J) - YA(J)j 2 IS NOT a 
term in PINDX. 

> 0 (YN(J) - YA(J)] IS an Element of ECH and 
WTNNC*[YN(J) - YA(J)] 2 IS a term in 
PINDX. 

• WTNNC(J) 1.000 Weightina Coefficient element in the 

WTNNC(J)*[YN(J) - YA(J)] 2 term in the 
Performance Index PINDX (REAL* 8). 


AMAXNNC(I,J,K) 100.00 


AMINNNC(I,J,K) -100.00 


The Least Upper Bounds (l.u.b.) of the Control 
Vector Elements (REAL* 8). 

CW(I,J,K) < AMAXNNC(LJ.K) 

The Greatest Least Bounds (g.I.b.) of the Control 
Vector Elements (REAL* 8). 

AMINNNC(U.K) < CW(I.J.K) 

Index which Specifies the l-th Element Position in 
the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K” (INTEGER*4). 


ICONNNC(l,J,K) 0 


Constraint Function Vector Identification Flag. 
This flag vector specifies whether or not the Neural- 
Signal Weighting Coefficient (i.e., CW(I,J,K)) 
associated with the Entry Signal XNN(I,J,K) to the 
K-th Neural-Net Layer from the l-th Entry 
(Origin) Position directed to the J-th Exit 
(Destination) Position will be constrained by an 
element of the Constraint Function Vector CON (•) 
(INTEGER*4). Currently NOT an option 

< 0 CW(I,J,K) IS NOT Constrained by an 
element of CON(»). 

> 0 CW(I,J,K) IS Constrained by an element of 
C0N(*). 
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Input Group 8 (Continued) 

Neural-Net Optimisation Parameters During the 
Controlled Trajectory 

Default 

or 

Initial 

Parameter Value Definition 


Constraint Vector Sub-Group (Continued) 

J 1 Index which Specifies the J-th Element Position 

in the Destination Vector for the Specific Neural- 
Network Layer specified by the index “K” 
(INTEGER*4). 

K 1 Index which Specifies the K-th Specific Layer in 

the Neural-Network (INTEGERS). 

Optimisation Parameters Sub-Group 

IOPTNNC 0 Gradient Evaluation Option Specification Flag 

(INTEGER*4). 

<0 No Neural-Net Update/Optimisation. 

= 1 The Gradients required during the Neural-Net 
Update/Optimisation Process are evaluated 
using a Finite Differences Method. 

= 2 The Gradients required during the Neural-Net 
Update/Optimisation Process are evaluated 
using an Analytic Method. Currently NOT 
an option 

MITNNNC 200 The Maximum Number of Optimisation Iterations 

allowed before the Optimisation Process is 
terminated. (INTEGER*4). 

OUTNNC 0 The Optimisation Iteration Output Level 

Specification Flag. (INTEGERS). 

= 0 No Optimisation Iteration information is 
written. 

= 1 Only the Final Optimisation Iteration 

Convergence Information is written. 

= 2 One Line of Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 

= 3 Detailed Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 
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Input Group 9 

Control Optimisation Parameters During the 
Controlled Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


Control Vector S ub-Group 

I 1 Index which Specifies the Mh Element Position in 

the Plant Input Vectors (i.e., the Plant Control 
Vector) XA(I), XD(I,L), and XN(I) (INTEGERS). 

ICV(I) 0 Control Vector Identification Flag. This flag 

vector specifies whether or not the l-th Element of 
the Actual/Working Control Vector (e.g., XA(I» 
will be an element in the Optimisation Control Vector 
CV(«) (INTEGER*4). 

<0 XA(I) IS NOT an Element of C'v(*). 

> 0 XA(I) IS an Element of CV(*). 


SCVC(I) 1.000 The Vector of Scaling Coefficients for the 

elements of the Actual/Working Control Vector 
(e.g., XA(I» required by the Optimisation Process 
(REAL* 8). 


End Conditions Vect or Sub-Group 

J 1 Index which Specifies the J-th Element Position 

in the Plant Output Vectors (i.e., the Plant 
Measurement/State Vector) YA(J), YD(J,L), and 
YN(J) (INTEGER*4). 

JEC(J) 0 End Conditions Identification Flag. This flag 

vector specifies whether or not the J-th Element of 
the Actual/Working Measurement/State Vector 
(i.e., YA(J>) will be an element in the 
Optimisation End Conditions Vector EC(*) and if 
WTC(J)*[YA(J)1 2 will be a term in the Performance 
Index PINDX (INTEGER*4). 

< 0 YA(J) IS NOT an Element of EC(*) and 
WTC*(YA(J)] 2 IS NOT a term in PINDX. 

> 0 YA(J) IS an Element of EC(*) and 
WTC*[YA(J)] 2 IS a term in PINDX. 


WTC(J) 1.000 Weighting Coefficient element in the 

WTC(J)*[YA(J)] 2 term in the Performance Index 
PINDX (REAL* 8). 
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Continued 


ontroi Optimisation Parameters Purina the 


Controlled Trajectory 


Parameter 


Default 

or 

Initial 

Value 


Definition 


AMAXC(I) 


AMINC(I) 


ICONC(I) 


10.00 The Least Upper Bounds (l.u.b.) of the Control 
Vector Elements (REAL* 8). 

XA(I) < AMAXC(I) 

•10.00 The Greatest Least Bounds (g.I.b.) of the Control 
Vector Elements (REAL* 8). 

AMINC(I) < XA(I) 

1 Index which Specifies the l-th Element Position in 
the Plant Input Vectors (i.e., the Plant Control 
Vector) XA(I), XD(I,L), and XN(I) (INTEGER*4). 

0 Constraint Function Vector Identification Flag. 

This flag vector specifies whether or not the l-th 
Element of the Actual/Working Control Vector 
(e.g., XA(I)) will be constrained by an element of 
the Constraint Function Vector CON(«) 
INTEGER*4). 

< 0 XA(I) IS Constrained in an element of 
CON(*). Currently NOT an option 


XA(I) IS NOT Constrained in an element of 
CONW. 

XA(I) and XA(IARG) ARE Constrained in 
an element of CON(*) according to:. 

[XA(I)] 2 + [XA(IARG)P < [SMAXC(I)] 2 
where: IARG = ICONC(I) 


SMAXC(I) 10.00 The Least Upper Bound (l.u.b.) Constraint 

Vector for the sum of the squares of two 
elements of the Actual/Working Control Vector 

(see ICONC(I)) (REAL* 8). 

[XA(I)]2 + [XA(IARG)] 2 < [SMAXC(I)] 2 
where: IARG = ICONC(I) 
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Input Group 9 (Continued) 

Control Optimisation Parameters During the 
Learning Trajectory 


Default 

or 

Initial 

Parameter Value Definition 


Optimisation Paramete rs Sub-Group 

IOPTC 0 Gradient Evaluation Option Specification Flag 

(INTEGER‘4). 

< 0 No Control Optimisation. 

= 1 The Gradients required during the Control 
Optimisation Process are evaluated using a 

Finite Differences Method. 

= 2 The Gradients required during the Control 
Optimisation Process are evaluated using an 
Analytic Method. Currently NOT an 
option 

MITNC 200 The Maximum Number of Optimisation Iterations 

allowed before the Optimisation Process is 

terminated. (INTEGER*4). 

OUTC 0 The Optimisation Iteration Output Level 

Specification Flag. (INTEGERS). 

= 0 No Optimisation iteration Information is 
written. 

= 1 Only the Final Optimisation Iteration 
Convergence Information is written. 

= 2 One Line of Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 

= 3 Detailed Intermediate Optimisation 
Iteration Information is written for Each 
Iteration. 
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Internally Set Parameters 

in the 

OPTIMNN Code 


•••Denotes Data Defined by NAMELIST CDATA Input Data read from Subroutine 
INIT, or by Directly Read On-Line Test Data, or by Internally 
Computed Data. This Data defines the “Actual” (Reference) Plant Input 
Vector and/or Output Vector at Specified Trajectory Time Points. 
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Internally Set Parameters Group A 
Internally Set Parameters for Trajectory Propagation 


Para meter 

CVUP 


DATAR 

DELAY 


DFREQ 

DFREQO 


DLGTH 

I 


Default 

or 

Initial 

Value Definition 


Plant Input Vector (i.e., the Plant Control Vector) 
XA(I) Update Frequency Flag for the Controlled 
Trajectory (INTEGERM). 

CVUP = JMOD(ISTEP-1 , CVTID) 

= 0 Update the Plant Input Vector XA(I). 

* 0 Do Net Update the Plant Input Vector XA(I). 

Data Set Read Flag (INTEGERM). 

DATAR = JMOD(ISTEP-1, DFREQ) 

= 0 Read Data Set if and only if DELAY < LSTEP. 

* 0 Do Not Read Data Set. 

Delay Count for Data Set Read (INTEGERM). 

= LDELAY During the Learning Trajectory. 

= CDELAY During the Controlled Trajectory. 

> LSTEP Do a Read Data Set. 

< LSTEP Read a Data Set if and only if DATAR = 0. 

Data Set Read Frequency After the First Neural- 

Net (NN) CW(l,J,K)s Update (INTEGERM). 

= DLFREQ During the Learning Trajectory. 

= DCFREQ During the Controlled Trajectory. 

Data Set Read Inhibit Flag for the First Read 
Attempt during the Learning Phase at the Start of the 
Controlled Trajectory (IPHASE = 5) (INTEGERM). 
Currently NOT an option 

= 0 Do Not Inhibit Data Set Read. 

* 0 Inhibit Data Set Read. 

Data Sliding Window Length/Size (i.e., the Maximum 
Number of Data Sets Contained in a Data Sliding 
Window (INTEGERM). 

= DLLGTH During the Learning Trajectory. 

= DCLGTH During the Controlled Trajectory. 

1 Index which Specifies the l-th Element Position in 

the Plant Input Vectors (i.e., the Plant Control 
Vector) XA(I), XD(I,L), and XN(I) (INTEGERM). 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Parameter 

ICUT 


IPHASE 


ISTEP 


Default 

or 

Initial 

Vajue _ Definit ion 

Trajectory Phase Cut (Termination) Flag 
(INTEGERS). 

= 0 No Cut upon completion of current step. 

* 0 Cut Phase (Terminate Phase) upon completion of 
current step. 

Trajectory Phase Identification Pointer (INTEGERS). 

= 0 Prior to Start of the Learning Trajectory. 

t < TLINIT 

s 1 At the Start of the Learning T rajectory. 

t = TLINIT 

= 2 During the Learning Trajectory. 

TLINIT < t < TLFINL 

a 3 At Termination of the Learning T rajectory. 

t = TLFINL 

= 4 Between the Learning & Controlled Trajectories. 

TLFINL < t < TCINIT 

= 5 At Start of the Controlled Trajectory. 

t = TCINIT 

a 6 During the Controlled Trajectory. 

TCINIT < t < TCFINL 

a 7 At Termination of the Controlled Trajectory. 

t a TCFINL 

a 8 After Termination of the Controlled Trajectory. 

t > TCFINL 

0 The Step Number of the Current Trajectory Integration 
Step. Note that if: (INTEGERM). 

ISTEPO a 0 and STMODC * 2 or 3, ISTEP is reset 
to ISTEP a 1 at the start of the Controlled Trajectory. 

ISTEPO /0 or STMODC a 2 or 3, ISTEP is reset to 
ISTEP a ISTEP + ISTEPO at the start of the 
Controlled Trajectory. 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Parameter 

J 

L 

LI 


L 2 

L 3 

LMAX 

LSTEP 


Default 

or 

Initial 

Value Definition 


1 Index which Specifies the J-th Element Position in 
the Plant Output Vectors (i.e., the Plant 
Measurement/State Vector) YA(J), YD(J,L), and 
YN(J) (INTEGERS). 

1 Index which Specifies the L-th Data Set in the Data 

Sliding Window (INTEGERM). 

1 < L < LMAX 

1 Index which Assigns the Analytic Modelling 
Function for a specific (L3.L2.L1) to either the Plant 
Input Vector (i.e., the Plant Control Vector) or the 
Plant Output vector (i.e., Piant Measurement/State 
Vector). LI is the name for the subscript Li in the 
computer code (INTEGERM). 

= 1 Specifies that the Model applies to an element of 
the Plant Input Vector (i.e., the Plant Control 
Vector). 

= 2 Specifies that the Model applies to an element of 
the Plant Output Vector (i.e., Plant 
Measurement/State Vector). 

1 Index which Specifies the Element Number for the 

Plant Input Vector (i.e., the Plant Control Vector) if 
LI = 1, or the Plant Output Vector (i.e., Plant 
Measurement/State Vector) if LI = 2 . L2 is the name 
for the subscript L 2 in the computer code 
(INTEGERM). 

1 Index which Specifies the Element Number of the 

Analytic Modelling Function for a specific (L 2 ,Li). L3 
is the name for the subscript L 3 in the computer code 
(INTEGERM). 

1 The Current Number of Data Sets in the Data 

Sliding Window (i.e., the Maximum Value that the index 
L can have) (INTEGERM). 

1 < L < LMAX < DLGTH 

Data Read Counter Number during the Current 
Trajectory (INTEGERM). 

LSTEP = 1 + (ISTEP - 1 )/DFREQ 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Parameter 

LTBL 

NNID 


NNUP 


NNUPO 


T 


TABS 


Default 

or 

Initial 

Value Definition 


1 Index which Specifies the LTBL-th Data Set of the 

Plant Model Data Table (INTEGERS). 

1 < LTBL < TBLMAX 

Neural-Net (NN) CW(l,J,K)s Update 
Frequency/Inhibit Flag (INTEGERS). 

= NNLID During the Learning Trajectory. 

= NNCID During the Controlled Trajectory. 

< 0 Do Nfil Update NN CW(l,J,K)s. 

> 0 Update NN CW(l,J,K)s every NNID times. 

Neural-Net (NN) CW(l,J,K)s Update Frequency Flag 
(INTEGERS). 

NNUP = JMOD(ISTEP-1, NNID) 

= 0 Update NN CW(l,J,K)s. 

^0 DoM Update NN CW(l,J,K)s. 

Neural-Net (NN) CW(l,J,K)s Update Inhibit Flag 
(INTEGERS). Currently NOT an option 

= 0 Do Nfll Inhibit NN CW(l,J,K)s Update at Start of 
the Controlled Trajectory. 

= 1 Inhibit NN CW(l,J,K)s Update at Start of the 
Controlled Trajectory iff a NN CW(l,J,K)s Update 
was done at the End of the Learning Trajectory. 

Either the Current Absolute Time (TABS) or the 
Current Relative Time (TREL) as appropriately 
specified by TLTYPE or TCTYPE. If: (REAL*8). 

TLTYPE < 0 during the Learning Trajectory, then: 

T = TABS . 

TLTYPE > 0 during the Learning Trajectory, then: 

T = TREL. 

TCTYPE < 0 during the Controlled Trajectory, then: 

T = TABS . 

TCTYPE > 0 during the Controlled Trajectory, then: 

T = TREL. 


Current Absolute Time. Note that if: (REAL*8). 

TLTYPE < 0 during the Learning T rajectory, then: 
TABS is measured from TLINIT. 

TLTYPE > 0 during the Learning Trajectory, then: 
TABS is measured from TINIT + TLINIT. 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Parameter 

TABS 


— TBLMAX 

t r>t IT 

l vw i 


~ TD(L) 
TREL 


Default 

or 

Initial 

Value Definition 


(Continued) 

TCTYPE < 0 during the Controlled Trajectory, then: 
TABS is measured from TCINIT. 

TCTYPE > 0 during the Controlled Trajectory, then: 
TABS is measured from TLFINL + TCINIT. 

1 The Number of Data Sets (i.e., the Maximum Value 
that the index LTBL can have) in the Plant Model 
Data Table (INTEGERM). 

1 < LTBL < TBLMAX 

Trajectory Cut (Termination) Time (REAL*8). 

TLTYPE < 0 during the Learning Trajectory, then: 
TOUT is the value of the Absolute Time (i.e., the 
value of TABS) specified by TFINL. 

TLTYPE > 0 during the Learning Trajectory, then: 
TOUT is the value of the Relative Time (i.e., the 
value of TREL) specified by TFINL. 

TCTYPE < 0 during the Controlled Trajectory, then: 
TOUT is the value of the Absolute Time (i.e., the 
value of TABS) specified by TFINL. 

TCTYPE > 0 during the Controlled Trajectory, then: 
TOUT is the value of the Relative Time (i.e., the 
value of TREL) specified by TFINL. 

Either the Absolute Time (TABS) or the Relative 
Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE corresponding to the “Actual” (Reference) 
Plant Model defined in the L-th Data Set in the Data 
Sliding Window (REAL*8). 

Current Relative Time. Note that if: (REAL*8). 

TLTYPE <0 during the Learning Trajectory, then: 
TREL is measured from ZERO. 

TLTYPE > 0 during the Learning Trajectory, then: 
TREL is measured from TLINIT. 

TCTYPE < 0 during the Controlled Trajectory, then: 
TREL is measured from ZERO. 

TCTYPE >0 during the Controlled Trajectory, then: 
TREL is measured from TCINIT. 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Default 

or 

Initial 

Parameter Value 


TSTEP 


— TTBL(LTBL) 


XA(I) 


•- XD(I,L) 


XN(I) 


••• XTBL(I,LTBL) 


YA(J) 


Definition 


Trajectory Integration Time Step (REAL*8). 

= TLSTEP During the Learning Trajectory. 

= TCSTEP During the Controlled Trajectory. 

Either the Absolute Time (TABS) or the Relative 
Time (TREL) as appropriately defined by TLTYPE or 
TCTYPE corresponding to the “Actual” (Reference) 
Plant Model defined in the LTBL-th Data Set of the 
Plant Model Data Table used when the “Actual Plant” 
is modelled using Routine TSTATE (REAL*8). 

The l-th Element of the Input Vector (i.e., the 
Control Vector) to the “Actual” (Reference) Plant 

Model which is modelled by One of: Routine 

AST ATE (i.e., Analytic Trajectory State Synthesis), or 
Routine DSTATE (i.e., Trajectory State from On-Line 
Test Data ), or Routine TSTATE (i.e., Trajectory State 
from Stored Data Tables), or Routine USTATE (i.e., 
Trajectory State from a User Supplied Model) 
(REAL*8). 

The l-th Element of the Input Vector (i.e., the 
Control Vector) to the “Actual” (Reference) Plant 
Model defined in the L-th Data Set in the Data 
Sliding Window (REAL»8). 

The l-th Element of the Input Vector (i.e., the 
Control Vector) to the Neural Network Plant Model 

which corresponds to XA(I) (REAL*8). 

The l-th Element of the Input Vector (i.e., the 
Control Vector) to the “Actual” (Reference) Plant 
Model defined in the LTBL-th Data Set of the Plant 
Model Data Table used when the “Actual Plant” is 
modelled using Routine TSTATE (REAL*8). 

The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the “Actual” 
(Reference) Plant Model which is modelled by One 
of: Routine AST ATE (i.e., Analytic Trajectory State 
Synthesis), or Routine DSTATE (i.e., Trajectory State 
from On-Line Test Data), or Routine TSTATE (i.e., 
Trajectory State from Stored Data Tables), or Routine 
USTATE (i.e., Trajectory State from a User Supplied 
Model) (REAL*8). 
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Internally Set Parameters Group A (Continued) 
Internally Set Parameters for Trajectory Propagation 


Default 

or 

Initial 

Parameter Value Definition 


YD(J,L) 


YN(J) 


— YTBL(J.LTBL) 


The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the “Actual” 
(Reference) Plant Model defined in the L-th Data 
Set in the Data Sliding Window (REAL*8). 

The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the Neural 
Network Plant Model which corresponds to YA(J) 
(REAL*8). 

The J-th Element of the Output Vector (i.e., the 
Measurement/State Vector) from the “Actual” 
(Reference) Plant Model definedjn the LTBL-th 
Data Set of the Plant Modei Data i abie used when 
the “Actual Plant” is modelled using Routine TSTATE 
(REAL*8). 
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Internally Set Parameters Group B 
Internally Set Parameters for Neural Network Operation 


Parameter 

I 

J 

K 

UNN(J,K) 

XNN(UK) 

YNN(J.K) 


Default 

or 

Initial 

Value Definition 


1 Index which Specifies the l-th Element Position in 

the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K” (INTEGERM). 

1 Index which Specifies the J-th Element Position 
in the Destination Vector for the Specific Neural- 
Network Layer specified by the index “K” 
(INTEGERM). 

1 Index which Specifies the K-th Specific Layer in 
the Neural-Network (INTEGERM). 

Input Signal to the Pass-Through Function (Node 
Filter) at the J-th Exit (Destination) Position of 
the K-th Neural-Net Layer (REAL*8). 

UNN(J,K) = £ CW(I, J,K) * XNN(I,J,K) 

I 

Entry Signal to the K-th Neural-Net Layer from 
the l-th Entry (Origin) Position directed to the J-th 
Exit (Destination) Position. (REAL*8). 

Exit Signal from the J-th Exit (Destination) 
Position of the K-th Neural-Net Layer (REAL*8). 
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CMAXC(II) The Vector of l.u.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
AMAXC(I) for Control Optimisation during the 
Controlled Trajectory Phase. (REAL* 8). 

CMAXNNC(IJK) The Vector of l.u.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(*) set to the value of the appropriate element of 
AMAXNNC(I,J,K) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 
(REAL* 8). 

CMAXNNL(IJK) The Vector of l.u.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
AmAXNNL(I.J,K) for Neural-Net Optimisation 
during the Learning Trajectory Phase. (REAL* 8). 

CMINC(II) The Vector of g.l.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
AMINC(I) for Control Optimisation during the 
Controlled Trajectory Phase. (REAL* 8). 

CMINNNC(IJK) The Vector of g.l.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(*) set to the value of the appropriate element of 
AMINNNC(I,J,K) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 
(REAL* 8). 

CMINNNL(IJK) The Vector of g.l.b. Values corresponding to the 

elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
AMINNNL(I,J,K) for Neural-Net Optimisation 
during the Learning Trajectory Phase. (REAL* 8). 

CON (•) The Actual/Working Constraint Function Vector 

(REAL*8). 

where • denotes IIJK during Neural-Net 
Update/Optimisation and III during Control 
Update/Optimisation. 

CV(») The Actual/Working Optimisation Control Vector 

(REAL*8). 

where • denotes IJK during Neural-Net 
Update/Optimisation and II during Control 
Update/Optimisation. 
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Internally Set Parameters Group C (Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Parameter 

CVOW 


CVBDC 


Default 

or 

Initial 

Value Definition 


The Initial Estimate of the Optimisation Control 
Vector CV (•) (REAL* 8). 

where • denotes UK during Neural-Net 
Update/Optimisation and II during Control 
Update/Optimisation. 

0 The Control Variable Bounds Specification Flag 
for Control Optimisation during the Controlled 
Trajectory Phase. (INTEGER*4). 

where • denotes II, and if 

= 0 Both Lower and Upper Bounds (i.e., the 
CMINCH and CMAXCH Vectors) are 
specified for All Elements of the Optimisation 
Control Vector CV (•). 

= 1 All Elements of the Optimisation Control 
Vector CV(«) are constrained to be > zero. 

= 2 All Elements of the Optimisation Control 
Vector CV (•) are constrained to be < zero. 

= 3 Both Lower and Upper Bounds (i.e., the 
CMINC(«) and CMAXCH Vectors) are 
specified for All Elements of the Optimisation 
Control Vector CV (•) by specifying Only the 
First Element of the CMINC(«) and 
CMAXC( a ) Vectors (i.e., CMINC(I) and 
CMAXC(I). In this case, all other Elements 
of the CMINC(«) and CMAXC(«) Vectors are 
internally set Equal to the values of 
CMINCfl) and CMAXC(1), respectively. 


CVBDNNC 


0 The Control Variable Bounds Specification Flag 
for Neural-Net Optimisation during the Controlled 
Trajectory Phase. (INTEGER*4). 

= 0 Both Lower and Upper Bounds (i.e., the 
CMINNNC(«) and CMAXNNC(«) Vectors) 
are specified for All Elements of the 
Optimisation Control Vector CV(«). 

= 1 All Elements of the Optimisation Control 
Vector CV(*) are constrained to be > zero. 

= 2 All Elements of the Optimisation Control 
Vector CV (•) are constrained to be < zero. 
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internally Set Parameters Group C {Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value Definition 


CVBDNNC (Continued) 

= 3 Both Lower and Upper Bounds (i.e., the 
CMINNNCH and CMAXNNCH Vectors) 
are specified for All Elements of the 
Optimisation Control Vector CVH by 
specifying Only the First Element of the 
CMINNNCH and CMAXNNCH Vectors 
(i.e., CMINNNC(I) and CMAXNNC(I). In 
this case, all other Elements of the 
CMINNNCH and CMAXNNCH Vectors are 
internally set Equal to the values of 
CMINNNC(1) and CMAXNNC(I), respe- 
ctively. 

CVBDNNL 0 The Control Variable Bounds Specification Flag 

for Neural-Net Optimisation during the Learning 

Trajectory Phase. (INTEGERS). 

= 0 Both Lower and Upper Bounds (i.e., the 
CMINNNLH and CMAXNNLH Vectors) are 
specified for All Elements of the Optimisation 
Control Vector CV (•). 

= 1 All Elements of the Optimisation Control 
Vector CVH are constrained to be > zero. 

= 2 All Elements of the Optimisation Control 
Vector CVH are constrained to be < zero. 

= 3 Both Lower and Upper Bounds (i.e., the 
CMINNNLH and CMAXNNLH Vectors) are 
specified for All Elements of the Optimisation 
Control Vector CV (•) by specifying Only the 
First Element of the CMINNNLH and 
CMAXNNLH Vectors (i.e., CMINNNL(I) 
and CMAXNNL(I). In this case, all other 
Elements of the CMINNNLH and 
CMAXNNLH Vectors are internally set Equal 
to the values of CMINNNL(I) and 
CMAXNNL(1), respectively. 


CVSC(II) The Vector of Scaling Coefficients corresponding 

to the elements of the Optimisation Control Vector 
CVH set to the value of the appropriate element of 
SCVC(I) for Control Optimisation during the 
Controlled Trajectory Phase. (REAL* 8). 
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Internally Set Parameters Group C (Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value D efinitio n 


CVSNNC(IJK) 


CVSNNL(IJK) 


ECW 


ICVDEF 


IECDEF 


The Vector of Scaling Coefficients corresponding 
to the elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
SCVNNC(I,J,K) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 
(REAL* 8). 

The Vector of Scaling Coefficients corresponding 
to the elements of the Optimisation Control Vector 
CV(«) set to the value of the appropriate element of 
SCVNNL(I,J,K) for Neural-Net Optimisation during 
the Learning Trajectory Phase. (REAL* 8). 

The Actual/Working Optimisation End Conditions 
Vector (REAL*8). 

where • denotes JJJ during Neural-Net 
Update/Optimisation and JJ during Control 
Update/Optimisation 

Index which Specifies the l-th Element Position in 
the Origin Vector for the Specific Neural-Network 
Layer specified by the index “K" (INTEGER*4). 

The Control Vector Disposition Flag (INTEGER*4). 

= 1 Load CV(*) for Neural-Net Optimisation 
during the Learning Trajectory Phase. 

= 2 Unload CV(») for Neural-Net Optimisation 
during the Learning Trajectory Phase. 

= 3 Load CV(«) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 

= 4 Unload CV(«) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 

= 5 Load CV(») for Control Optimisation during 
the Controlled Trajectory Phase. 

- 6 Unload CV(«) for Control Optimisation 
during the Controlled Trajectory Phase. 

The End Condition Disposition Flag (INTEGER*4). 

= 1 Load EC (•) for Neural-Net Optimisation 
during the Learning Trajectory Phase. 

= 2 Load EC(*) for Neural-Net Optimisation 
during the Controlled Trajectory Phase. 
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Internally Set Parameters Group C {Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value Definition 


IECDEF 


II 

III 

IIJK 

IJK 

J 


JJ 


JJJ 


K 

L 


(Continued) 

= 3 Load EC (•) for Control Optimisation during 
the Controlled Trajectory Phase. 

0 Subscript/Index which defines a particular element 
of the Optimisation Control Vector CV(«) during 
Control Update/Optimisation (INTEGERM). 

0 Subscript/Index which defines a particular element 
of the Constraint Function Vecto r C ON(«) during 
Control Update/Optimisation (iNTEGERM). 

0 Subscript/Index which defines a particular element 
of the Constraint Function Vector CONM durina 

Neural-Net Update/Optimisation (INTEGERM).” 

0 Subscript/Index which defines a particular element 
of the Optimisation Control Vector CV(») during 
Neural-Net Update/Optimisation (INTEGERM). 

1 Index which Specifies the J-th Element Position 
in the Destination Vector for the Specific Neural- 
Network Layer specified by the index K 
(INTEGERM). 

0 Subscript/Index which defines a particular element 
of the Optimisation End Conditions Vector 
EC(*) during Control Update/Optimisation 
(INTEGERM). 

0 Subscript/Index which defines a particular element 
of the Optimisation End Conditions Vector 
EC(») during Neural-Net Update/Optimisation 
(INTEGERM). 

1 Index which Specifies the K-th Specific Layer in 
the Neural-Network (INTEGERM). 

1 Index which Specifies the L-th Data Set in the 

Data Sliding Window (INTEGERM). 

1 < L < LMAX 
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Internally Set Parameters Group C (Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value Defi nition 


LMAX 1 The Current Number of Data Sets in the Data 

Sliding Window (i.e., the Maximum Value that the 
index L can have) (INTEGER*4). 

1 < L < LMAX < DLGTH 


NCONC 0 


NCONNNC 0 


NCONNNL 0 


NICV 0 


NIJKCVC 0 


Total Number of Elements in the Actual/Working 

Optimisation Constraint Function Vector CON(III) 
(i.e., the Dimension of the Actual/Working 
Optimisation Constraint Function Vector, NOT to be 
confused with the Dimension of the CON(III) Array) 
for Control Update/Optimisation during the 
Controlled Trajectory Phase (INTEGERM). 

Total Number of Elements in the Actual/Working 

Optimisation Constraint Function Vector CON(IIJK) 
(i.e., the Dimension of the Actual/Working 
Optimisation Constraint Function Vector, NOT to be 
confused with the Dimension of the CON(IIJK) 
Array) for Neural-Net Update/Optimisation during 
the Controlled Trajectory Phase (INTEGERS). 

Total Number of Elements in the Actual/Working 

Optimisation Constraint Function Vector CON(IIJK) 
(i.e., the Dimension of the Actual/Working 
Optimisation Constraint Function Vector, NOT to be 
confused with the Dimension of the CON(IIJK) 
Array) for Neural-Net Update/Optimisation during 
the Learning Trajectory Phase (INTEGERS). 

Total Number of Elements in the Actual/Working 
Optimisation Control Vector CV(II) (i.e., the 
Dimension of the Actual/Working Optimisation Control 
Vector, NOT to be confused with the Dimension of 
the CV(II) Array) for Control Update/Optimisation 
during the Controlled Trajectory Phase 
(INTEGERS). 

Total Number of Elements in the Actual/Working 
Optimisation Control Vector CV(IJK) (i.e., the 
Dimension of the Actual/Working Optimisation Control 
Vector, NOT to be confused with the Dimension of 
the CV(IJK) Array) for Neural-Net 
Update/Optimisation during the Controlled 
Trajectory Phase (INTEGER*4). 
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Internally Set Parameters Group C (Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value Definition 


NIJKCVL 


NJEC 


NJJECC 


NJJECL 


PINDX 


0 Total Number of Elements in the Actual/Working 
Optimisation Control Vector CV(IJK) (i.e., the 
Dimension of the Actual/Working Optimisation Control 
Vector, NOT to be confused with the Dimension of 
the CV(IJK) Array) for Neural-Net 
Update/Optimisation during the Learning 
Trajectory Phase (INTEGERS). 

0 Total Number of Elements in the Actual/Working 
Optimisation End Conditions Vector EC(JJ) (i.e., 
the Dimension of the Actual/Working Optimisation End 
Conditions Vector, NOT to be confused with the 
Dimension of the EC(JJ) Array) for Control 
Update/Optimisation during the Controlled 
Trajectory Phase (INTEGERM). 

0 Total Number of Elements in the Actual/Working 
Optimisation End Conditions Vector EC(JJJ) 
(i.e., the Dimension of the Actual/Working 
Optimisation End Conditions Vector, NOT to be 
confused with the Dimension of the EC(JJJ) 
Array) for Neural-Net Update/Optimisation during 
the Controlled Trajectory Phase (INTEGERM). 

0 Total Number of Elements in the Actual/Working 
Optimisation End Conditions Vector EC(JJJ) 
(i.e., the Dimension of the Actual/Working 
Optimisation End Conditions Vector, NOT to be 
confused with the Dimension of the EC(JJJ) 
Array) for Neural-Net Update/Optimisation during 
the Learning Trajectory Phase (INTEGERM). 

0.000 The Performance Index (REAL*8). 

PINDX = SUMSQ 
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Internally Set Parameters Group C (Continued) 

Internally Set Parameters for the Optimisation 

Processes 


Default 

or 

Initial 

Parameter Value Definition 


SUMSQ 0.000 Sum of the Product of the Weighting Coefficients 

with the Squares of the Elements of the 
Optimisation End Conditions Vector EC(») 

(REAL*8). 


For Neural-Network Optimisation during the 
Learning Trajectory, 


LMAX 

SUMSQ = 21, WTSNNL(L) * SUMSQW(L) 

L = 1 


Where 

SUMSQW(L) = 21 WTNNL(JJJ) * EC(JJJ) * EC(JJJ) 
JJJ 


For Neural-Network Optimisation during the 
Controlled Trajectory, 


LMAX 

SUMSQ = 21 WTSNNC(L) * SUMSQW(L) 

L = 1 


Where 

SUMSQW(L) = 21 WTNNO(JJJ) * EC(JJJ) * EC(JJJ) 
JJJ 


For Control Optimisation during the Controlled 
Trajectory Phase, 

SUMSQ = 21 WTC(JJ) * EC(JJ) * EC(JJ) 

JJ 
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Internally Set Parameters Group C (Continued 



Parameter 

Default 

or 

Initial 

Value 

Definition 

SUMSQW(L) 

0.000 

Sum of the Product of the Weighting Coefficients 
with the Squares of the Elements of the 


Optimisation End Conditions Vector during 
Neural-Net Optimisation EC(«) (REAL*8). 

Where 

during the Learning Trajectory, 

SUMSQW(L) = £ WTNNL(JJJ) * EC(JJJ) • EC(JJJ) 

JJJ 

during the Controlled Trajectory, 

SUMSQW(L) = J WTNNC(JJJ) * EC(JJJ) * EC(JJJ) 
JJJ 


WC(JJ) Weighting Coefficient element in the 

WC(J J)*EC(J J ) 2 term in SUMSQ and the 
Performance Index PINDX (REAL* 8). 

WNNC(JJJ) Weighting Coefficient element in the 

WNNC(JJJ)*EC(JJJ ) 2 term in SUMSQ and the 
Performance Index PINDX (REAL* 8). 

WNNL(JJJ) Weighting Coefficient element in the 

WNNL(JJJ)*EC(JJJ ) 2 term in SUMSQ and the 
Performance Index PINDX (REAL* 8). 
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Internally Set Parameters Group D 
Internally Set Constants 


Internal 

Value 

Internal 

Name 

Definition 

0.000 

ZERO 

0.000 (REAL*8). 

1.0 D-08 

TENM8 

0.000,000,01 (REAL*8). 

1.0 D-06 

TENM6 

0.000,001 (REAL*8). 

1.0D-03 

TENM3 

0.001 (REAL*8). 

1.0 D-02 

TENM2 

0.010 (REAL*8). 

0.100 

PT100 

0.100 (REAL*8). 

0.200 

PT200 

0.200 (REAL*8). 

0.300 

PT300 

0.300 (REAL*8). 

0.500 

PT500 

0.500 (REAL*8). 

0.800 

PT800 

0.800 (REAL*8). 

1.000 

ONE 

1.000 (REAL*8). 

2.000 

TWO 

2.000 (REAL*8). 

e 

EBASE 

e (2.71828182845904523536) (REAL*8). 

3.000 

THREE 

3.000 (REAL*8). 

n 

PI 

K (3.14159265358979323846) (REAL*8). 

5.000 

FIVE 

5.000 (REAL*8). 

2K 

TWOPI 

2K (6.28318530717958647693) (REAL*8). 

8.000 

EIGHT 

8.000 (REAL*8). 

10.000 

TEN 

10.000 (REAL*8). 

360/2K 

RTD 

360/271 Degrees/Radian (REAL*8). 

1.0 D+02 

TENP2 

100.000 (REAL*8). 

1.0 D+03 

TENP3 

1000.000 (REAL*8). 

1.0D+06 

TENP6 

1000,000.000 (REAL*8). 

1.0D+08 

TENP8 

100,000,000.000 (REAL*8). 
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Routines Group 1 

Principal OPTIMNN Peculiar Routines 


Rou tine 

ASTATE 

ASTATE01 

ASTATE02 

ASTATE03 

ASTATE04 

ASTATE05 

ASTATE06 

ASTATE07 


Purpose of Routine 


Synthesis of the “Actual” (Reference) Plant Model by 
Combining Selected Individual Analytic Models (i.e., 
ASTATE01, ASTATE02, ASTATE03, •, •, •). 

The Linear Function (i.e., the Ramp Function) individual Analytic 
Model Element defined by: 


y-y 1, = + c 

The Serpentine Curve Individual Analytic Model Element defined 
by: 


y-y* 


ab{x-i q,) 


The Witch of Agnesi Curve Individual Analytic Model Element 
defined by: 


y-y* 


a\ 

b 2 (x-x^y+ a 2 


The Inverted Witch of Agnesi Curve Individual Analytic Model 
Element defined by: 


y a b 2 (x-xj+a 2 


The Enveloped Sinusoid Function Individual Analytic Model 
Element defined by: 

y-y„= CExp e [a(x -x 0 - y/)]cos[nto(x -x 0 - #)] 


The Hyperbolic Tangent Function (i.e., the Threshold 
Function) Individual Analytic Model Element defined by: 

y~y n = CTanh[A{x- x i) )] 


The Derivative of the Threshold Function (i.e., the Pulse 
Function) Individual Analytic Model Element defined by: 

y - y„ = £{CTanh[A(x - x 0 )J = ACSech 2 [A(x - * 0 )] 
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Routines Group 1 (Continued) 
Principal OPTIMNN Peculiar Routines 


Routine 

ASTATRAN 


CVVCTR 

DSTATE 

ECVCTR 

GRADC 

GRADW 

INIT 

INITDAT 

JCTRL 

JNNW 


Purpose of Routine 


The Uniform Distribution Function Individual Analytic Model 
Element defined by: 

y _ y o = [A + BUran{ISEED )] + [C + DUran(JSEED)]f(x - x 0 ) 

where: Uran(*) is the Uniformly Random Distribution Function 

such that 

-1.00000 < Uran(«) < +1.00000 

/(•) is any of the functions defined by ASTATE01, 
ASTATE02, ASTATE03, •, ASTATE07. 

I SEED and JSEED are the seeds required by the 
VAX/VMS System Subroutine RAN(«). 

Defines the Control Vector for the Optimisation Processes. 

Defines the “Actual" (Reference) Plant Model from On-Line 
Test Data. 

Defines End Conditions (Conditions-of-lnterest during the 
Optimisation Process) used to evaluate the Performance Index and 
Constraint Functions. 

Defines the Analytic Gradient of the Performance Index and 
the Constraint Functions with respect to the Control 0s for the 
Optimisation Processes. 

Defines the Analytic Gradient of the Error Metric and the 
Constraint Functions with respect to the Neural-Net Signal 
Coefficients Ws for the Neural-Net Learning Processes. 

Reads the Input Data defined by “NAMELIST CDATA” and 
then initialises the data for the case to be processed. 

FORTRAN Code (not a complete routine) which is included in 
the OPTIMNN Peculiar Routine INIT by means of an INCLUDE 
Statement to define the initially set Default Values of the 
“NAMELIST CDATA” INPUT Parameters and the Values of the 
Internally Set Constants of the OPTIMNN System. 

Defines the Performance Index and Constraint Functions for 
the Control Optimisation Processes. 

Defines the Error Metric (Performance Index) and Constraint 
Functions for the Neural-Net Learning Processes. 
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Routines Group 1 (Continued) 
Principal O PTIMNN P eculiar Routines 


Routine 

OPTIMNN 

PFNCTOO 

PFNCT01 

PFNCT02 

PFNCT03 

STATE 

STATENN 

TSTATE 

TRAJ 


Purpose of Routine 


Main Driver Routine: Executes the Code by first calling 
Subroutine INIT to cause the Input Data defined by NAMELIST 
“CDATA" to be read and initialised for the case to be 
processed, and then by subsequently calling Subroutine TRAJ 
to cause execution of the options and propagation of the 
trajectories defined by the input. 

The No-Pass (i.e., the Constant Function) Node Filter Function 
defined by: 


y-y«=c 


The Direct-Pass (i.e., the Linear Function) Node Filter Function 
defined by: 


y-y 0 = a{x-x 0 ) + c 


The Hyperbolic Tangent (Threshold Function) Node Filter 
Function defined by: 

y-y n - CTanh[A(x - *,)] 


The First Derivative of the Hyperbolic Tangent (Pulse 
Function) Node Filter Function defined by: 

y - y 0 * ^{craa*[A(jr - *„)]} = ACSech^A^x - *«,)] 


Defines the Input Vector (i.e., the Control Vector) and the 
Output Vector (i.e., the Measurement/State Vector) to/from 
the “Actual” (Reference) Plant at a specific time point by 
Selecting the “Actual" (Reference) Plant Model from amongst 
Routines ASTATE, DSTATE, TSTATE, and USTATE. 

Defines the Neural-Net State using the Current NN W and 
Control 0 Values. 

Defines the “Actual" (Reference) Plant Model from Stored 
Data Tables. 


Propagates (Integrates) the Trajectory by Incrementing 
the Time. 
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Routines Group 1 (Continued) 
Principal OPTIMNN Peculiar Routines 


Routine 

TYPECOM 

USTATE 


Purpose of Routine 


FORTRAN Code (not a complete routine) which is included in 
the OPTIMNN Peculiar Routines by means of an INCLUDE 
Statement to establish and define: 1) the Principal COMMON 
Blocks; 2) the Data TYPE of the Principal Parameters, Arrays, 
and Vectors; and 3) the DIMENSION of the Principal Arrays 
and Vectors of the OPTIMNN System. 

Defines the “Actual” (Reference) Plant Model from a User 
Supplied Model. 
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Routines Group 2 

Principal IMSL MATH/LIBRARY Routines 
used by OPTIMNN 


Routine Purpose of Routine 


DNCONF 


DN40NF1 


DNCONG 


DN90NG1 


ERSET 


IERCD 


IMSL MATH/LIBRARY Routine which solves a general non-linear 
programming problem using a successive quadratic programming 
algorithm and a finite-difference approximation gradient. See pages 
895-902 in Chapter 8 of Reference D-3 

Modified IMSL MATH/LIBRARY DN40NF Routine which is called 
during the computation process initiated when the IMSL 
MATH/LIBRARY Routine DNCONF is called. DN40NF was 
modified to provide better mathematical conditioning for the controller 
problems considered. 

IMSL MATH/LIBRARY Routine which solves a general non-linear 
programming problem using a successive quadratic programming 
algorithm and a user-supplied (analytic) gradient routine. See 
pages 903-908 in Chapter 8 of Reference D-3 

Modified IMSL MATH/LiBRARY DN90NG Routine which is called 
during the computation process initiated when the IMSL 
MATH/LIBRARY Routine DNCONG is called. DN90NG was 
modified to provide better mathematical conditioning for the controller 
problems considered. 

IMSL MATH/LIBRARY Error Handling Routine which sets actions 
to be taken (changes the default actions) when errors occur during 
the execution of IMSL MATH/LIBRARY Routines. See pages 
1 1 30-1 1 34 in Chapter 8 of Reference D-3. 

IMSL MATH/LIBRARY Error Handling Routine which retrieves the 
integer code defined when an informational error occurs during the 
execution of IMSL MATH/LIBRARY Routines. See pages 1130- 
1 1 34 in Chapter 8 of Reference D-3. 
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Routine Pur pose of Routine 

DABS Absolute Value VAX/VMS FORTRAN Double Precision Intrinsic 

Function. 

Y = DABS(ARG) = Abs(ARG) = |ARG| 
where: Y is REAL*8, ARG is REAL*8 


Arc Tangent VAX/VMS FORTRAN Double Precision Intrinsic 
Function. 

Y = DATAN2D(ARG1/ARG2) + Tan' 1 (ARG 1 /ARG2) 
where: Y isREAL*8, Y is in Degrees . 

-180 Degrees < Y < +180 Degrees, 

ARG1 is REAL*8 and ARG1 = Sin(Y), 

ARG2 is REAL*8 and ARG2 = Cos(Y) 


Cosine VAX/VMS FORTRAN Double Precision Intrinsic Function. 
Y = DCOS(ARG) = Cos(ARG) 
where: Y isREAL*8, Y is in Radians. 

ARG is REAL*8 


DCOSD Cosine (Degrees) VAX/VMS FORTRAN Double Precision 

Intrinsic Function. 

Y = DCOSD(ARG) = Cos(ARG) 
where: Y is REAL*8, Y is in Degrees. 

ARG is REAL*8 


DCOSH Hyperbolic Cosine VAX/VMS FORTRAN Double Precision 

Intrinsic Function. 

Y = DCOSH(ARG) = Cosh(ARG) 
where: Y is REAL*8, ARG is REAL*8 


DEXP Exponential VAX/VMS FORTRAN Double Precision Intrinsic 

Function. 

Y = DEXP(ARG) = Expe(ARG) 

where: Y is REAL*8, ARG is REAL*8 
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Routine 

DFLOTJ 

DINT 


DLOG 

DMAX1 


DMIN1 


Routines Group 3 (Continued) 

rincipal VAX/VMS FORTRAN Routines 
used by OPTiMNN 


Purpose of Routine 


INTEGER*4 to REAL'S Conversion VAX/VMS FORTRAN 
Double Precision Intrinsic Function. This function converts the 
INTEGER*4 argument to the floating point REAL*8 equivalent 
which is returned as the function value. 

Y = DFLOTJ(IARG) = Float(IARG) 

where: Y is REAL*8, IARG is INTEGERS 

Truncation (REAL'S to REAL'S ) VAXA/MS FORTRAN Double 
Precision Intrinsic Function This function converts the floating point 
REAL*8 argument ARG to the truncated floating point REAL*8 Y 
which is returned as the function value. Y is defined as the largest 
integral value whose magnitude does not exceed the magnitude of 
ARG and whose sign is the same as that of ARG. For example. 
DINT(7.9) equals 7.000 and JIDINT(-7.9) equals -7.000. 

Y = DINT (ARG) = Trunc(ARG) 

where: Y is REAL*8, ARG is REAL*8, 

TruncW is the Truncation Function. 

Natural Logarithm VAX/VMS FORTRAN Double Precision 
Intrinsic Function. 

Y = DLOG(ARG) = Loge(ARG) = Ln(ARG) 

where: Y is REAL*8, ARG is REAL*8 

Selection of Maximum VAXA/MS FORTRAN Double Precision 
Intrinsic Function. This function returns the value of the argument in 
the argument list (ARG1, ARG2, ARG3, •, •, •, •) which has the 
greatest value. There must be at least two arguments in the 
argument list 

Y = DMAX1(ARG1 , ARG2, ARG3, •, •, •, •) 

where: Y is REAL*8, 

ARG1 , ARG2, ARG3, are REAL*8 

Selection of Minimum VAXA/MS FORTRAN Double Precision 
Intrinsic Function. This function returns the value of the argument in 
the argument list (ARG1, ARG2, ARG3, •, •, •, •) which has the 
least value. There must be at least two arguments in the argument 
list. 


Y = DMIN1(ARG1, ARG2, ARG3, 
where: Y isREAL*8, 

ARG1 , ARG2, ARG3, are REAL*8 


Appendix B: Routines - 7 




Routines Group 3 (Continued) 

Principal VAX/VMS FORTRAN Routines 
used by OPTIMNN 


Routine Purpose of Rou tine 

DMOD Remainder VAX/VMS FORTRAN Intrinsic Function. This function 

returns the remainder when the first argument is divided by the 
second. 

Y = DMOD(ARG1,ARG2) 

Y = ARG1 - ARG2*T runc(ARG 1 /ARG2) 

Y = ARG1 - ARG2*D I NT (ARG 1 /ARG2) 

where: Y is REAL*8, 

ARG1 is REAL*8, 

ARG2 is REAL*8 

Trunc(*) is the Truncation Function. 

DSIGN Transfer of Sign VAX/VMS FORTRAN Double Precision Intrinsic 

Function. This function assigns the sign of the second argument 
(ARG2) to the absolute value of the first argument (ARG1 ). 

Y = DSIGN(ARG1,ARG2) = |ARG1|*Sgn(ARG2) 

where: Y is REAL*8, 

ARG1 is REAL*8, ARG2 is REAL*8 


DSIN Sine VAX/VMS FORTRAN Double Precision Intrinsic Function. 

Y = DSIN(ARG) = Sin(ARG) 
where: Y is REAL*8, Y is in Radians . 

ARG is REAL*8 


DSIND Sine (Degrees) VAX/VMS FORTRAN Double Precision Intrinsic 

Function. 

Y = DSIND(ARG) = Sin(ARG) 

where: Y isREAL*8, Y is in Degrees. 

ARG is REAL*8 


DSQRT Square Root VAX/VMS FORTRAN Double Precision Intrinsic 

Function. 

Y = DSQRT (ARG) = VARG 
where: Y is REAL*8, 

ARG is REAL*8, ARG > 0.00000 


Appendix B: Routines - 8 


Routines Group 3 (Continued) 

Principal VAX/VMS FORTRAN Routines 
used by OPTiMNN 

Routine Purpose of Routine 


DTAN Tangent VAX/VMS FORTRAN Double Precision Intrinsic Function. 

Y = DTAN(ARG) = Tan(ARG) 

where: Y is REAL*8, Y is in Radians. 

ARG is REAL*8 

DTAND Tangent (Degrees) VAX/VMS FORTRAN Double Precision 

Intrinsic Function. 

Y = DTAND(ARG) = Tan(ARG) 

where: Y isREAL*8, Y is in Degrees. 

ARG is REAL*8 


DTANH Hyperbolic Tangent VAX/VMS FORTRAN Double Precision 

intrinsic Function. 

Y = DTANH(ARG) = Tanh(ARG) 
where: Y is REAL*8, ARG is REAL*8 

JIDINT Truncation (REALMS to INTEGER*4 Conversion) VAX/VMS 

FORTRAN Double Precision Intrinsic Function This function 
converts the floating point REAL*8 argument ARG to the truncated 
INTEGER*4 IY which is returned as the function value. IY is 
defined as the largest integer whose magnitude does not exceed 
the magnitude of ARG and whose sign is the same as that of ARG. 
For example, JIDINT(7.9) equals 7 and JIDINT(-7.9) equals -7. 

IY = JIDINT (ARG) = Trunc(ARG) 

where: IY is INTEGERM, ARG is REAL*8, 

TruncH is the Truncation Function. 

JMAXO Selection of Maximum VAXA/MS FORTRAN Intrinsic Function. 

This function returns the value of the argument in the argument list 
(IARG1, IARG2, IARG3, •,*,•,•) which has the greatest value. 
There must be at least two arguments in the argument list. 

IY = JMAX0(IARG1, IARG2, IARG3, •, •, •, •) 

where: IY is INTEGERM, 

IARG1, IARG2, IARG3, • are INTEGERS 


Appendix B: Routines - 9 



Routines Group 3 (Continued) 

Principal VAX/VMS FORTRAN Routines 
used by OPTtMNN 

Routine Purpose of Routine 


JMOD Remainder VAX/VMS FORTRAN Intrinsic Function. This function 

returns the remainder when the first argument is divided by the 
second. 

IY = JMOD(IARG1,IARG2) 

IY = IARG1 - I ARG2*T runc(l ARG 1 /I ARG2) 

IY = IARG1 - IARG2*(IARG1/IARG2) 
where: IY is INTEGERS, 

IARG1 isINTEGERM, 

IARG2 is INTEGERS 
Trunc(») is the Truncation Function. 

RAN Uniformly Distributed Random Number Generator VAX/VMS 

FORTRAN System Subroutine. RAN is a general random number 
generator of the multiplicative congruential type. RAN produces a 
Single Precision Floating Point (REALM) number that is uniformly 
distributed in the range between 0.00000 inclusive and 1 .00000 
inclusive ( [0.00000, 1 .00000] ) from an input seed (ISEED). 

Y = RAN(ISEED) = Urand(ISEED) 

where: Y is REALM, 0.00000 < Y < +1.00000 

ISEED isINTEGERM, 

Urand (•) is the Uniformly Random Distribution Function 
such that 

0.00000 < Urand (•) < +1.00000 
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ASSIGN SYS$ COMMAND: SYS $ INPUT 

ASSIGN SYS$ INPUT FOR005 
ASSIGN SYS$OUTPUT FOR006 
SET TERM/WIDTH= 8 0 
SET VERIFY 
SET NOVERIFY 

j 

! ***** OPTIM COMMAND PROCEDURE: OPTIM.COM 

i 

! ON WARNING THEN GOTO 

* ON ERROR THEN GOTO 

l ON SEVERE THEN GOTO 

i 

START: 


INQUIRE EXPRAA "Express to RUN OPTIMNN? (Y/N) " 

IF EXPRAA .EQS. "N" THEN GOTO EXPR01 
GOTO EXPR04 
EXPR01: 

INQUIRE EXFRBB "Express to LINK OPTIMNN? (Y/N) " 

IF EXPRBB .EQS. "N" THEN GOTO TYPE01 
GOTO EXPR03 

i 

TYPE01: 

INQUIRE TYPEAA "TYPE a File? (Y/N) • 

IF TYPEAA .EQS. "N" THEN GOTO EDIT01 

» 

« ***** TYPE a File ***** 

i 

INQUIRE TYPEBB "ENTER NAME of File to be TYPED. " 

ON ERROR 1HEN GOTO TYPED 2 
TYPE ’TYPEBB' 

GOTO TYPE01 
TYPE02: 

WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "ERROR Specifying File to be TYPED; Try Again. 
WRITE SYSSOUTPUT ■ " 

GOTO TYPED 1 


EDIT01 : 

INQUIRE EDITAA "EDIT a File? (Y/N) " 

IF EDITAA .EQS. "N" THEN GOTO CMPL01 

i 

» ***** EDIT a File ***** 

j 

INQUIRE EDITBB "ENTER NAME of File to be EDITED." 

ON ERROR THEN GOTO EDIT02 
EDT ’EDITBB' 

GOTO PURGE14 
EDIT02 : 

WRITE SYSSOUTPUT " * 

WRITE SYSSOUTPUT "ERROR Specifying File to be EDITED; Try Again 
WRITE SYSSOUTPUT " " 

GOTO EDIT01 


CMPL01 : 

INQUIRE CMPLAA "COMPILE a File? (Y/N) " 

IF CMPLAA .EQS. "N" THEN GOTO LINK01 

j 

! ***** COMPILE a File ***** 

I 

INQUIRE CMPLBB "ENTER NAME of File to be COMPILED. " 
INQUIRE CMPLCC "COMPILE a FORTRAN File? (Y/N) " 

IF CMPLCC .EQS. "N* THEN GO TO CMPL06 

j 

! ***** FORTRAN Compilation ***** 

» 

INQUIRE CMPLDD "Specify the /LIST Qualifier? (Y/N) " 
IF CMPLDD .EQS. "N" THEN GOTO CMPL03 
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i 


INQUIRE CMPLEE "Specify the /SHOW= INCLUDE Qualifier? (Y/N) * 
IF CMPLEE . EQS. "N" THEN GOTO CMPL02 
ON ERROR THEN GOTO CMPL05 

! FOR /LI ST / SHOW= INCLUDE / CROSS_REFERENC E * CMPLBB ’ . FOR 

FOR /LI ST / SHOW= INCLUDE / CROSS_REFERENCE / NOWARNINGS 1 CMPLBB' .FOR 
GOTO PURGE01 
CMPL02: 

ON ERROR THEN GOTO CMPL05 
! FOR /LIST / CROSS_REFERENCE 'CMPLBB' .FOR 

FOR /LIST/ CROSS_REFERENCE / NOWARNINGS 'CMPLBB '.FOR 
GOTO PURGE01 
CMPL03: 

INQUIRE CMPLFF "Specify the /SHOW= INCLUDE Qualifier? (Y/N) M 
IF CMPLFF .EQS. "N" THEN GOTO CMPL04 
ON ERROR THEN GOTO CMPL05 
! FOR/SHOW= INCLUDE ’CMPLBB’ .FOR 

FOR / SHOW= INCLUDE /NOWARNINGS 'CMPLBB'. FOR 
GOTO PURGE01 
CMPL04: 

ON ERROR THEN GOTO CMPL05 
! FOR 'CMPLBB'. FOR 

FOR/NOWARNINGS ' CMPLBB ' . FOR 
GOTO PURGE01 
CMPL05: 

WRITE SYS $ OUTPUT - " 

WRITE SYS$OUTPUT "ERROR in FORTRAN Compilation . " 

WRITE SYS $ OUT PUT " " 

GOTO TYPE01 

i 

! ***** c Compilation ***** 

j 

CMPL06: 

INQUIRE CMPLGG "Specify the /LIST Qualifier? (Y/N) • 

IF CMPLGG .EQS. "N" THEN GOTO CMPL08 

INQUIRE CMPLHH "Specify the /SHOW= INCLUDE Qualifier? (Y/N)" 
IF CMPLHH .EQS. "N" THEN GOTO CMPL07 
ON ERROR THEN GOTO CMPL10 

CC /LI ST / SHOW= INCLUDE / CROS S_REFERENCE 'CMPLBB' .C 
GOTO PURGE01 
CMPL07 : 

ON ERROR THEN GOTO CMPL10 
CC / LIST/ CROSS_REFERENCE 'CMPLBB' .C 
GOTO PURGE01 
CMPL08: 

INQUIRE CMPLII "Specify the /SHOW= INCLUDE Qualifier? (Y/N)* 
IF CMPLII .EQS. "N" THEN GOTO CMPL09 
ON ERROR THEN GOTO CMPL10 
CC/SHOW= INCLUDE ' CMPLBB ' .C 
GOTO PURGE01 
CMPL09 : 

ON ERROR THEN GOTO CMPL10 
CC 'CMPLBB'. C 
CMPL10 : 

WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "ERROR in CC Compilation." 

WRITE SYS$OUTPUT " " 

GOTO TYPE01 

j 

PURGE 01 : 

INQUIRE PURGEAA "Automatic PURGE? (Y/N)" 

IF PURGEAA .EQS. "N" THEN GOTO CMPL01 

i 

j ***** Automatic PURGE of Previous Files ***** 

I 

IF CMPLCC .EQS. "N" THEN GO TO PURGE 05 
INQUIRE PURGEBB "PURGE .FOR Files? (Y/N)" 

IF PURGEBB .EQS. "N" THEN GOTO PURGE02 

i 

, ***** PURGE .FOR Files ***** 


Appendix C: OPTIMNN.COM - 2 




(Y/N) 


DIR ’CMPLBB’. FOR 

INQUIRE VERSAA "Are There EXACTLY Versions 1, 2, 3, and 4? 

IF VERSAA .EQS. "N" THEN GOTO VERS01 
DELETE ’CMPLBB’.FOR;! 

RENAME ' CMPLBB’ .FOR; 4 'CMPLBB' .FOR;l 
DELETE ’CMPLBB’ .FOR; 2 
DELETE ’CMPLBB’ .FOR; 3 
COPY ’CMPLBB’ .FOR; 1 ’CMPLBB’ .FOR; 2 
COPY ' CMPLBB ' . FOR; 1 ’CMPLBB’ .FOR; 3 
GOTO FURGE02 
VERS01 : 

WRITE SYS$OUTPUT - ■ 

WRITE SYS$OOTPUT "PURGE NOT Executed for ", CMPLBB FOR Files." 
WRITE SYS$OUTFUT " " 

PURGE02: 

DIR 'CMPLBB' .FOR 

INQUIRE PURGBCC "Continue? (Y/N) " 

IF PURGBCC .EQS. "N" THEN GOTO PURGE03 
GOTO PURGE04 
PURGE03 : 

WRITE SYS$OUTPUT " " 

WRITE SYS$OUTFUT "Pause 7 Seconds." 

WRITE SYS$OUTPUT • " 

WAIT 00:00:07 
PURGE04 : 

IF CMPLDD .EQS. "N" THEN GOTO PURGE11 
GOTO PURGED 8 
PURGE05 : 

INQUIRE PURGEDD "PURGE .C Files? (Y/N) " 

IF PURGEDD .EQS. "N" THEN GOTO PURGED 6 

i 

, ***** purge .C Files ***** 

i 

DIR ’CMPLBB'. C 

INQUIRE VERSBB "Are There EXACTLY Versions 1, 2 , 3, and 4? (Y/N) 

IF VERSBB .EQS. "N* THEN GOTO VERS 02 
DELETE ’CMPLBB'. C;1 
RENAME ’CMPLBB'. C;4 'CMPLBB'. C;1 
DELETE ’ CMPLBB'. C; 2 
DELETE ’CMPLBB’. C;3 
COPY 'CMPLBB'. C;1 'CMPLBB' .C;2 
COPY ’CMPLBB’. C;1 ’CMPLBB’ .C; 3 
GOTO PURGE06 
VERS02 : 

WRITE SYS$OUTPUT ■ " 

WRITE SYS$OUTPUT "PURGE NOT Executed for ", CMPLBB, ".C Files." 
WRITE SYS$OUTPUT " • 

PURGE06: 

DIR ’CMPLBB'. C 

INQUIRE PURGEEE "Continue? (Y/N) " 

IF PURGEEE .EQS. "N" THEN GOTO FURGE07 
GOTO PURGE08 
PURGE07 : 

WRITE SYS$OUTPUT " • 

WRITE SYSSOUTPUT "Pause 7 Seconds." 

WRITE SYSSOUTPUT " " 

WAIT 00:00:07 

IF CMPLGG .EQS. "N" THEN GOTO PURGEll 
PURGE08 : 

INQUIRE PURGEFF "PURGE .LIS Files? (Y/N)" 

IF PURGEFF .EQS. "N" THEN GOTO PURGE09 

i 

! ***** PURGE .LIS Files ***** 

i 

DIR ‘CMPLBB '.LIS 

INQUIRE VERSCC "Are There EXACTLY Versions 1, 2, 3, and 4? (Y/N) 

IF VERSCC .EQS. "N" THEN GOTO VERS03 
DELETE ’CMPLBB' .LIS; 1 
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$ RENAME ' CMPLBB ' . LIS ; 4 ' CMPLBB 1 . LIS ; 1 

$ DELETE ’ CMPLBB 1 . LIS ; 2 

$ DELETE * CMPLBB * . LIS ; 3 

$ COPY 'CMPLBB' .LIS; 1 ' CMPLBB LIS ; 2 

$ COPY 'CMPLBB' .LIS; 1 'CMPLBB LIS; 3 

$ GOTO PURGE09 

$ VERS03 : 

$ WRITE SYS$OUTPUT " " 

$ WRITE SYSSOUTPUT "PURGE NOT Executed for " , CMPLBB, " .LIS Files." 

$ WRITE SYS $ OUT PUT " • 

$ PURGE09: 

$ DIR 'CMPLBB '.LIS 

$ INQUIRE PURGEGG "Continue? (Y/N) " 

$ IF PURGEGG . EQS. "N" THEN GOTO PURGE10 

$ GOTO PURGE11 

$ PURGE 10 : 

$ WRITE SYS$OUTPUT " " 

$ WRITE SYS$OUTPUT "Pause 7 Seconds." 

$ WRITE SYSSOUTPUT " " 

$ WAIT 00:00:07 

$ PURGE 11 : 

$ INQUIRE PURGEHH "PURGE .OBJ Files? (Y/N)" 

$ IF PURGEHH .EQS. "N" THEN GOTO PURGE12 

$ ! 

$ , ***** PURGE .OBJ Files ***** 

$ ! 

$ DIR 'CMPLBB'. OBJ 

$ INQUIRE VERSDD "Are There EXACLY Versions 1, 2, 3, and 4? (Y/N)" 

$ IF VERSDD .EQS. "N" THEN GOTO VERS04 

$ DELETE ' CMPLBB ’ . OBJ ; 1 

$ RENAME 'CMPLBB' .OBJ; 4 ' CMPLBB '. OBJ ; 1 

$ DELETE 'CMPLBB' .OBJ; 2 

$ DELETE 'CMPLBB' .OBJ; 3 

$ COPY 'CMPLBB' .OBJ; 1 ' CMPLBB OBJ ; 2 

$ COPY 'CMPLBB' .OBJ; 1 ' CMPLBB '. OBJ ; 3 

$ GOTO PURGE 12 

$ VERS04: 

$ WRITE SYSSOUTPUT " " 

$ WRITE SYSSOUTPUT "PURGE NOT Executed for ", CMPLBB OBJ Files." 

$ WRITE SYSSOUTPUT " " 

$ PURGE12 : 

$ DIR 'CMPLBB '.OBJ 

$ INQUIRE PURGEII "Continue? (Y/N)" 

$ IF PURGEII .EQS. "N" THEN GOTO PURGE13 

$ GOTO CMPL01 

$ PURGE 13 : 

S WRITE SYSSOUTPUT " " 

$ WRITE SYSSOUTPUT "Pause 7 Seconds." 

$ WRITE SYSSOUTPUT " " 

$ WAIT 00:00:07 

$ GOTO CMPL01 

$ PURGE14 : 

$ INQUIRE PURGEJJ "Automatic PURGE of Compile-Only File? (Y/N)" 

$ IF PURGEJJ .EQS. "N" THEN GOTO PURGE 1 5 

$ ! 

$ i ***** Automatic PURGE of "Corrpile-Only" File ***** 

$ ! 

$ DIR ' EDITBB ' 

$ INQUIRE VERSEE "Are There EXACTLY Versions 1, 2, 3, and 4? (Y/N)" 

$ IF VERSEE .EQS. "N" THEN GOTO VERS05 

$ DELETE 'EDITBB' ;1 

$ RENAME 'EDITBB' ;4 1 EDITBB '; 1 

$ DELETE 'EDITBB'; 2 

$ DELETE ' EDITBB ' ; 3 

$ COPY ' EDITBB ' ; 1 ' EDITBB ' ; 2 

$ COPY ' EDITBB ' ; 1 ' EDITBB ' ; 3 

GOTO PURGE15 
VERS05 : 

WRITE SYSSOUTPUT " " 
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Files. 


WRITE SYS $ OUTPUT "PURGE NOT Executed for " , EDITBB, " 
WRITE SYSSOUTPUT " " 

PURGE15: 

DIR ’EDITBB* 

INQUIRE PURGEKK "Continue? (Y/N) " 

IF PURGEKK . EQS. "N" THEN GOTO PURGE16 
GOTO EXPR02 
PURGE16 : 

WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "Pause 7 Seconds." 

WRITE SYSSOUTPUT " " 

WAIT 00:00:07 
EXPR02 : 

INQUIRE EXPRCC "Express to RUN OPTIMNN? (Y/N) " 

IF EXPRCC .EQS. "N* THEN GOTO TYPE01 
GOTO EXPR04 


LINK01: 

INQUIRE LINKAA "LINK the OPTIMNN Code? (Y/N)" 
IF LINKAA .EQS. "N" THEN GOTO RUN01 


, ***** LINK the OPTIMNN Routines ***** 

» 

EXPR03: 

INQUIRE LINKBB "LINK with IMSL Optimisation System? (Y/N)" 

IF LINKBB .EQS. *N" THEN GOTO LINK03 

INQUIRE LINKCC "LINK with /MAP/CROSS_REFERENCE Qualifiers? (Y/N)" 
IF LINKCC .EQS. "N" THEN GOTO T.TNK02 


***** LINK Code with the IMSL Shared Library and the 

/MAP / CROSS_REFERENCE Qual 1 f i ers 

ON ERROR THEN GOTO LINK05 

LINK/MAP/CROSS_REFERENCE OPTIMNN, INIT, TRAJ, - 

JNNW, JCTRL, CWCTR, ECVCTR, STATENN, PFNCT00 , - 

PFNCT01 , PFNCT02, PFNCT03 , STATE, ASTATE, ASTATRAN, - 

ASTATE01. ASTATE02, ASTATEQ3, ASTATE04 , ASTATE05, ASTATE06 , - 

ASTATE07 , DSTATE, TSTATE, USTATE, IMSL I BG_SHARE / OPT 


LINK Code with the IMSL Static Library and the 

/ MAP / CROS S_REFERENCE Qualifiers 


LINK / MAP / CROSS_REFERENCE OPTIMNN, 

JNNW, JCTRL, CWCTR, ECVCTR, 

PFNCT01, PFNCT02, PFNCT03 , STATE, 

ASTATE 01 , ASTATE02 , ASTATE03, ASTATE 04 , 

ASTATE 07 , DSTATE, TSTATE, USTATE, 

IMSL I BG_STAT I C / OPT , IMSLPSECT/OPT 
$ GOTO RUN01 

$ LINK02: 


INIT, 
STATENN, 
ASTATE, 
ASTATE 05 , 
DN40NF1, 


TRAJ,- 
PFNCT00 , - 
ASTATRAN, - 
ASTATE06,- 
DN90NG1 , - 


$ ! 

$ ! ***** LINK Code with the IMSL Shared Library with NO 
$ » /MAP/CROSS_REFERENCE Qualifiers 

$ ! 

$ ON ERROR THEN GOTO LINK 05 


$ ! 

LINK 



OPTIMNN, 

INIT, 

TRAJ,- 

$ ! 

JNNW, 

JCTRL, 

CWCTR, 

ECVCTR, 

STATENN, 

PFNCT00 , - 

$ 

PFNCT01, 

PFNCT02, 

PFNCT03, 

STATE, 

ASTATE, 

ASTATRAN, - 

S ! 

ASTATE01, 

ASTATE 02 , 

ASTATE03 , 

ASTATE 04 , 

ASTATE05 , 

ASTATE 06 , - 

$ 

ASTATE 07 , 

DSTATE, 

TSTATE, 

USTATE, 

IMSLIBG_SHARE/OPT 

$ 

$ 

***** LINK Code with the IMSL Static Library with NO 


$ ! 




/MAP/CROSS. 

^REFERENCE 

Qualifiers 

$ ! 
$ 

LINK 



OPTIMNN, 

INIT, 

TRAJ, - 


JNNW, 

JCTRL, 

CWCTR, 

ECVCTR, 

STATENN, 

PFNCT00 , - 


PFNCT01, 

PFNCT02, 

PFNCT03, 

STATE, 

ASTATE, 

ASTATRAN, - 


ASTATE01 , 

ASTATE02 , 

ASTATE 03 , 

ASTATE 04 , 

ASTATE05 , 

ASTATE 06 , - 


ASTATE 07 , 

DSTATE, 

TSTATE, 

USTATE, 

DN40NF1, 

DN90NG1 , - 


Appendix C: OPTIMNN.COM - 5 



VMAV>V>VMA<AV><AV>V>V>V>V>V>VMAV>VMA<AV>V><A{AVMA<AV>V>VMAV>V>V>VM/MA<AV>V>V> </> V> </> </> </> <J> </> <AV></>V>-C/></></>-(AV> 


IMSL I BG_STAT I C / OPT , IMSLPSECT/OPT 
GOTO RUN01 
LINK03: 

INQUIRE LINKDD "LINK with /MAP/CROSS_REFERENCE Qualifiers? (Y/N) " 

IF LINKDD . EQS. "N" THEN GOTO LINK04 

i 

! ***** LINK Code with KJAG and the /MAP/CROSS_REFERENCE Qualifiers ***** 

I 

ON ERROR THEN GOTO LINK05 

LINK /MAP/ CROSS__REFERENCE OPTIMNN, INIT, TRAJ, - 

JNNW, JCTRL, CWCTR, ECVCTR, STATENN, PFNCTOO, - 

PFNCT01 , PFNCT02 , PFNCT03 , STATE, ASTATE, ASTATRAN, - 

ASTATE01 , ASTATE 02 , ASTATE03 , ASTATE04 , ASTATE 05 , ASTATE06 , - 

ASTATE07, DSTATE, TSTATE, USTATE , DN40NF1 , DN90NG1 , - 

WORK , [ LEYLAND . OPTIMNN . OPTIMNN1 ] SRCVLIB . OLB 

GOTO RUN01 
LINK04 : 

I 

! ***** LINK Code with KJAG with NO / MAP / CROS S_REF ERENC E Qualifiers ***** 

I 

ON ERROR THEN GOTO LINK05 

LINK OPTIMNN, INIT, TRAJ, - 

JNNW, JCTRL, CWCTR, ECVCTR, STATENN, PFNCTOO , - 

PFNCT01, PFNCT02 , PFNCT03 , STATE, ASTATE, ASTATRAN, - 

ASTATEO 1 , ASTATE 02 , ASTATE 03 , ASTATE 04 , ASTATE0 5 , ASTATE 06 , - 

ASTATE07, DSTATE, TSTATE, USTATE, DN40NF1, DN90NG1 , - 

WORK , [ LEYLAND . OPTIMNN . OPTIMNNl ] SRCVLIB . OLB 

GOTO RUN01 
LINK05: 

WRITE SYS $ OUTPUT " * 

WRITE SYSSOUTPUT "ERROR in Linking. Terminate Process." 

WRITE SYSSOUTPUT " " 

GO TO TERMINATE 

RUN01: 

INQUIRE RUNAA "RUN OPTIMNN? (Y/N) " 

IF RUNAA .EQS. "N" THEN GOTO TERMINATE 

j 

! ***** RUN OPTIMNN ***** 

r 

, ***** Clear INPUT (FOR007.DAT) and OUTPUT (FOR008.DAT) 

! Data ***** 

j 

EXPR04 : 

ON ERROR THEN GOTO RUN02 . 

DELETE FOR007 . * ; * 

RUN02: 

ON ERROR THEN GOTO RUN03 
DELETE FOR008 . * ; * 

RUN03 : 

j 

! ***** COPY INPUT CDATA.DAT File to FOR007.DAT ***** 

i 

ON ERROR THEN GOTO RUN04 
COPY CDATA.DAT FOR007.DAT 
GOTO RUN 05 

RUN04: 

WRITE SYSSOUTPUT * " 

WRITE SYSSOUTPUT "ERROR with the INPUT. Terminate Process." 

WRITE SYSSOUTPUT " " 

GOTO TERMINATE 

RUN05: 

INQUIRE RUNBB "Delete Previous EDATA.DAT;* OUTPUT Files? (Y/N)" 

IF RUNBB .EQS. "N" THEN GOTO RUN 07 

i 

! ***** Delete Previous EDATA.DAT;* OUTPUT Files. ***** 

i 

ON ERROR THEN GOTO RUN 06 
DELETE EDATA.*;* 

GOTO RUN 07 
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RUN06: 

WRITE SYSSOUTPUT * * 

WRITE SYSSOUTPUT "ERROR Clearing OUTPUT (EDATA.DAT;*);- 
Continue Process." 

WRITE SYS$OUTPUT " " 

RUN07: 

INQUIRE RUNCC "TYPE INPUT Data (CDATA.DAT) ? (Y/N)" 

IF RUNCC .EQS. "N* THEN GOTO RUN09 
WRITE SYS$OUTPUT * " 

WRITE SYSSOUTPUT "INPUT Data File CDATA.DAT." 

WRITE SYS$OUTPUT " " 

ON ERROR THEN GOTO RUNG 8 

t 

j ***** TYPE INPUT File CDATA . DAT/FOR007 . DAT Before Execution. ***** 

i 

TYPE FQR007.DAT 
WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "End of INPUT Data File CDATA.DAT." 

WRITE SYSSOUTPUT " " 

GOTO RUN09 

RUN08: 

WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "ERROR with INPUT (CDATA. DAT/ FDR007 . DAT) . - 
Terminate Process . * 

WRITE SYSSOUTPUT " " 

GOTO TERMINATE 

RUN09: 

ASSIGN EDATA.DAT SYSSOUTPUT 
WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "START RUN. " 

WRITE SYSSOUTPUT " " 

SET TERM/WIDTH=132 
ON ERROR THEN GOTO RUN10 

j 

, ***** Execute OPTIMNN ***** 

i 

RUN OPTIMNN 

» 

SET TERM/WIDTH=80 
GOTO RUN11 

RUN10: 

SET TERM/WIDTH=80 
WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "INPUT (ERROR in Running OPTIMNN. Continue." 

WRITE SYSSOUTPUT " " 

RUN11 : 

WRITE SYSSOUTPUT • " 

WRITE SYSSOUTPUT "END of RUN." 

WRITE SYSSOUTPUT " " 

DEASSIGN SYSSOUTPUT 
ON ERROR THEN GOTO RUN12 
DELETE FOR007.*;* 

RUN12 : 

l ON ERROR THEN GOTO RUN13 

* RENAME FOR008.DAT EDATA.DAT 

RUN13: 

INQUIRE RUNDD "TYPE INPUT Data (CDATA.DAT)? (Y/N) " 

IF RUNDD .EQS. "N" THEN GOTO RUN15 

i ***** T YP E INPUT File CDATA.DAT ***** 

f 

WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "INPUT Data File CDATA.DAT." 

WRITE SYSSOUTPUT * " 

ON ERROR THEN GOTO RUN 14 
TYPE CDATA.DAT 
WRITE SYSSOUTPUT " " 

WRITE SYSSOUTPUT "End of INPUT Data File CDATA.DAT." 

WRITE SYSSOUTPUT - " 
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GOTO RUN 13 

RUN14 : 

WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "ERROR with INPUT (CDATA.DAT) . Continue Process. 
WRITE SYS $ OUTPUT ■ " 

GOTO RUN13 

RUN15 : 

INQUIRE RUNEE "TYPE OUTPUT Data (EDATA.DAT) ? (Y/N) " 

IF RUNEE . EQS. "N" THEN GOTO TERMINATE 

j 

i ***** TYPE OUTPUT File EDATA.DAT ***** 

i 

WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "OUTPUT Data File EDATA.DAT." 

WRITE SYS$OUTPUT " " 

SET TERM/ WIDTH= 132 
ON ERROR THEN GOTO RUN16 
TYPE EDATA.DAT 
SET TERM/WIDTH=80 
WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "End of OUTPUT Data File EDATA.DAT." 

WRITE SYS $ OUTPUT " " 

GOTO RUN15 

RUN16: 

SET TERM/WIDTH=80 
WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "ERROR with OUTPUT (EDATA.DAT). Continue Process 
WRITE SYS $ OUTPUT " H 
GOTO RUN15 

i 

TERMINATE: 

j 

! ***** TERMINATE RUN. ***** 

i 

WRITE SYS$OUTPUT " " 

WRITE SYS$OUTPUT "TERMINATE RUN." 

WRITE SYSSOUTPUT " " 

EXIT 
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non 


***** 


c 

c 

c 

c 

c 

c 

c 

c 

c 


The - [ L£YI*AND . OPT IMNN ] TYPECQM . INC ■ File is Included here. 
This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPT IMNN System. 

INCLUDE ’ [LEYLAND.OPTIMNN]TYPECCM. INC' 
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* **** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


***** Start TYPECOM.INC 


***** These statements establish and define: 1) the Principal 

COMMON Blocks; 2) the Data TYPE of the Principal Parameters, 
Arrays, and Vectors; and 3) the DIMENSION of the Principal 
Arrays and Vectors of the OPTIMNN System. 


IMPLICIT NONE 


***** Data Type for the Group 1 Parameters ***** 

INTEGER* 4 NCON, NCV, NEC, NIDIM, NIJKDIM, 

1 NJDIM, NJKDIM, NKDIM, NL1DIM, NL21, NL2DIM, 

2 NL321, NL3DIM, NLDIM, NLTBL 

***** Dimensions for Arrays and Vectors ***** 

PARAMETER (NIDIM=16, NJDIM=16, NKDIM-4 , NL1DIM=2, NL2DIM=12, 
1 NL3DIM-7, M LD IM=300. NT .TOT .=600) 

PARAMETER (NCV=JMAX0 (NL2DIM, NIDIM*NJDIM*NKDIM) , NEC=NL2DIM, 
1 NCGN=NL20XM) 


PARAMETER (NJKDIM=NJDIM*NKDIM, NIJKDIM=NIDIM*NJDIM*NKDIM) 
PARAMETER <NL21=NL2DIM*NL1DIM, NL3 2 1 =NL3DIM*NL2DIM*NL1DIM ) 


***** Data Type, Dimension, and COMMON for the Group 2 Parameters ***** 


INTEGER* 4 MULT , TBLMAX 


REAL* 8 C0NST1 , C0NST2 , 

1 LARGE 3 , LARGE4, SMALL 1 , 

2 TINIT, TFINL, 

3 XTBL (NL2DIM, NLTBL) , 

4 YTBL(NL2DIM, NLTBL) 


CONST 3 , C0NST4, C0NST5, LARGE1 , LARGE2 , 
SMALL2, SMALL 3 , SMALL4 , TD (NLDIM) , 

TTBL (NLTBL), XD (NL2DIM, NLDIM) , 

YD (NL2DIM, NLDIM) , 


COMMON / GRP2 / C0NST1, 

1 LARGE2, LARGE3, LARGE4 , 

2 TBLMAX, TD, TINIT, 

3 YTBL 


C0NST2, 

MULT, 

TFINL, 


CQNST3 , 
SMALL1, 
TTBL, 


CONST4, 

SMALL2, 

XD, 


C0NST5, 

SMALL3, 

XTBL, 


LARGE1 , 
SMALL4 , 
YD, 


***** Data Type, Dimension, and COMMON for the Group 3 Parameters 

INTEGER* 4 DLFREQ, DLLGTH, LDELAY, NNLID, STMODL, TLTYPE 

REAL* 8 TLINIT, TLFINL, TLSTEP, WTSNNL (NLDIM) 

COMMON / GRP3 / DLFREQ, DLLGTH, LDELAY, NNLID, STOODL, TLINIT, 

1 TLFINL, TLSTEP, TLTYPE, WTSNNL 


***** Data Type, Dimension, and COMMON for the Group 4 Parameters 


INTEGER* 4 CDELAY, CVTID, DCFREQ, DCLGTH, ISTEPO, NNCID, STMODC, 
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1 TCTYPE, UPDATE 

C 

REAL*8 tcinit, TCFINL, TCSTEP, WTSNNC(NLDIM) 

c 

COMMON / GRP4 / CDELAY, CVTID, DCFREQ, DCLGTH, ISTEPO, NNCID, 

1 STMODC, TCINIT, TCFINL, TCSTEP, TCTYPE, UPDATE, WTSNNC 
C 
C 
C 

C ***** Data Type, Dimension, and COMMON for the Group 5 Parameters ***** 
C 

INTEGER* 4 NFUNCT (NJDIM, NKDIM) , NI (NKDIM) , NJ (NKDIM) , NK 
C 

REAL *8 AN (NJDIM, NKDIM) , BN {NJDIM, NKDIM) , CN (NJDIM, NKDIM) , 

1 CW (NIDIM, NJDIM, NKDIM) , DN (NJDIM, NKDIM) , XNO (NJDIM, NKDIM) , 

2 YNO (NJDIM, NKDIM) 

C 

COMMON / GRP 5 / AN, BN, CN, CW, DN, NFUNCT, NI, NJ, NK, XNO, YNO 


C 

C 

C 

C 

C 


C 


C 


c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 


***** Data Type, Dimension, and COMMON for the Group 6 Parameters ***** 


INTEGER* 4 

1 ISEEDl (NL3DIM, NL2DIM,NL1DIM) , 

2 ISEED3 (NL2DIM, NLlDIM) , 

2 JSEED2 (NL3DIM,NL2DIM, NLlDIM) , 

3 NL2 (NLlDIM) , 

REAL*8 

1 Al (NL3DIM,NL2DIM, NLlDIM) , 

2 A3 (NL2DIM, NLlDIM) , 

3 B (NL3DIM, NL2DIM, NLlDIM) , 

4 B2 (NL3DIM, NL2DIM, NLlDIM) , 

5 C (NL3DIM, NL2DIM, NLlDIM) , 

6 C2(NL3DIM,NL2DIM, NLlDIM) , 

7 D(NL3DIM,NL2DIM, NLlDIM) , 

8 D2 (NL3DIM, NL2DIM, NLlDIM) , 

9 NN(NL3DIM,NL2DIM, NLlDIM) , 

0 PERIOD (NL3DIM,NL2DIM, NLlDIM) , 

1 PHI (NL3DIM, NL2DIM, NLlDIM) , 

2 TOOPIO , 

3 Y0(NL3DIM,NL2DIM, NLlDIM) , 

4 YR2 (NL3DIM,NL2DIM, NLlDIM) , 

COMMON / GRP6 / A, 

1 Bl , B2 , B3 , 

2 Dl, D2, D3 , 

3 JSEED2, JSEED3, NL2 , 

4 PHI, PSI, XO, 


IFUNCT(NL3DIM,NL2DIM, NLlDIM) , 
ISEED2(NL3DIM,NL2DIM, NLlDIM) , 
JSEED1 (NL3DIM,NL2DIM, NLlDIM) , 
JSEED3 (NL2DIM, NLlDIM) , 

NL3 (NL2DIM, NLlDIM) 

A (NL3DIM,NL2DIM, NLlDIM) , 
A2(NL3DIM,NL2DIM, NLlDIM) , 
ALPHA (NL3DIM,NL2DIM, NLlDIM) , 
B1(NL3DIM,NL2DIM, NLlDIM) , 

B3 (NL2DIM, NLlDIM) , 

Cl (NL3DIM,NL2DIM, NLlDIM) , 

C3 (NL2DIM, NLlDIM) , 

Dl (NL3DIM,NL2DIM, NLlDIM) , 

D3 (NL2DIM, NLlDIM) , 

OMEGA ( NL3 DIM, NL2 DIM, NLlDIM) , 
PHASE (NL3DIM,NL2DIM, NLlDIM) , 
PSI (NL3DIM,NL2DIM, NLlDIM) , 

XO (NL3DIM,NL2DIM, NLlDIM) , 
YR1(NL3DIM,NL2DIM, NLlDIM) , 
YR3 (NL2DIM, NLlDIM) 


Al, 

A2 , A3, 

ALPHA, B, 

C, 

Cl , C2 , 

C3, D, 

IFUNCT, 

ISEEDl , ISEED2 , 

ISEED3, JSEEDl , 

NL3 , 

NN, OMEGA, 

PERIOD, PHASE, 

YO, 

YR1, YR2, 

YR3 


***** Data Type, Dimension, and COMMON for the Group 7 Parameters ***** 
I NT EGER *4 IJKCVL (NIDIM, NJDIM, NKDIM) , JJECL (NL2DIM) , 



ICONNNL (NIDIM, NJDIM, NKDIM) 
MITNNNL, 

, IOPTNNL, 

OUTNNL 


REAL* 8 

SCVNNL (NIDIM, NJDIM, NKDIM) , 
AMAXNNL (NIDIM, NJDIM, NKDIM) , 

WTNNL (NL2DIM) , 

AMINNNL (NIDIM, NJDIM, NKDIM ) 

COMMON 

/ GRP7 / IJKCVL, SCVNNL, 

AMINNNL , ICONNNL , IOPTNNL , 

JJECL, WTNNL, 

MITNNNL, OUTNNL 

AMAXNNL, 


***** Data Type, Dimension, and COMMON for the Group 8 Parameters ***** 
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INTEGER* 4 I JKCVC ( NIDIM , NJDIM , NKDIM ) , JJECC (NL2DIM) , 

1 I CQNNNC (NIDIM, NJDIM, NKDIM) , IOPTONC, 

2 MITONNC, OUTNNC 

C 

REAL *8 SCVNNC {NIDIM, NJDIM, NKDIM) , WTNNC (NL2DIM) , 

1 AMAXNNC (NIDIM, NJDIM, NKDIM) , AMINNNC (NIDIM, NJDIM , NKDIM ) 

C 

COMMON / GRP8 / I JKCVC, SCVNNC, JJECC, WTNNC, AMAXNNC, 

1 AMINNNC, ICONNNC, IOPTNNC, MITNNNC, OUTNNC 

C 

c 

c 

C ***** Data Type, Dimension, and COMMON for the Group 9 Parameters ***** 
C 

INTEGER* 4 ICV(NL2DIM) , JEC(NL2DIM) , ICQNC (NL2DIM) , IOPTC, 

1 MITOC, OUTC 

C 

REAL* 8 SMAXC (NL2DIM) , WTC (NL2DIM) , AMAXC (NL2DIM) . 

1 AMINC (NL2DIM) , SCVC(NL2DIM) 

C 

COMMON / GRP9 / ICV, SCVC, JEC, WTC, AMAXC, AMINC, 

1 ICONC, SMAXC, IOPTC, MITOC, OUTC 
C 
C 
C 

c ***** Data Type, Dimension, and COWCN for the Group A Parameters ***** 
C 

INTEGER* 4 CVUP, QATAR. DELAY. DFREO, DFREOO . DLGTH, I CUT, 

1 I PHASE, I STEP, LMAX, LSTEP, LTBL, NNID, NNUP, NNUPO 

C 

REAL "6 T, TABS, TCUT, TREL, T-STEP, 

1 XA (NL2DIM) , XN (NL2DIM) , YA(NL2DIM) , YN (NL2DIM) 

C 

COMMON / GRPA'/ CVUP, QATAR, DELAY, DFREQ, DFREQO , DLGTH, I CUT, 

1 I PHASE, ISTEP, LMAX, LSTEP, LTBL, NNID, NNUP, NNUPO, T, 

2 TABS, TCUT, TREL, TSTEP, XA, XN, YA, YN 

C 

C 

C 

c ***** Data Type, Dimension, and COfWON for the Group B Parameters ***** 

C 

REAL *8 UNN (NJDIM, NKDIM) , XNN (NIDIM, NJDIM, NKDIM) , YNN (NJDIM, NKDIM) 

C 

COMMON / GRPB / UNN, XNN, YNN 
C 
C 
C 

c ***** Data Type, Dimension, and COMMON for the Group C Parameters ***** 

C 

IOTEGER*4 CVBDC, CVBENNC, CV3DNNL, ICVDEF, IECDEF, 

1 II, III, IIJK, IJK, JJ, JJJ, 

2 NCONC, NCONNNC. NCQNNNL, NICV. NI JKCVC, NIJKCVL, 

3 NJEC, NJJECC, NJJECL 

C 

REAL* 8 CMAXC(NCV) , CMAXNNC (NCV) , CMAXNNL (NCV) , 

1 CMINC (NCV) , CMINNNC (NCV) , CMINNNL(NCV) , CON(NCON) , 

2 CV(NCV), CVO(NCV), CVSC(NCV) , CVSNNC(NCV), 

3 CVSNNL(NCV), EC (NEC) , PINDX, SUM SQ, 

4 SUMSQW(NLDIM) , WC (NEC) , WNNC (NEC) , WNNL (NEC) 

C 

COMMON / GRPC / CMAXC, CMAXNNC, CMAXNNL, CMINC, CMINNNC, 

1 CMINNNL, CON, CV, CVO, CVBDC, CVBENNC, CVBENNL, 

2 CVSC, CVSNNC, CVSNNL, EC, ICVDEF, IECDEF, II, 

3 III, IIJK, IJK, JJ, JJJ, NCONC, NCONNNC, 

4 NCONNNL, NICV, NI JKCVC, NIJKCVL, NJEC, NJJECC, NJJECL, 

5 PINDX, SUMSQ, SUMSW, WC, WNNC, WNNL 
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***** Data Type, Dimension, and COMMON for the Group D Parameters ***** 

REAL *8 ZERO, TENM8, TENM6, TENM3, TENM2 , PT100, PT200, 

1 PT300, PT500, PT800 , ONE, TWO, ERASE, THREE, PI, FIVE, 

2 TOOPI, EIGHT, TEN, RTD, TENP2 , TENP3, TENP6, TENP8 

C 

COMMON / GRPD / ZERO, TENM8, TENM6, TENM3 , TENM2, PT100, PT200, 

1 PT300, PT500, PT800, ONE, TOO, ERASE, THREE, PI, FIVE, 

2 TOOPI, EIGHT, TEN, RTD, TENP2, TENP3, TENP6 , TENP8 

C 

C 

C 

c ***** TYPECOM.INC ***** 

C 

c 

c 
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* 


c 

c 

c 

c 

c 

c 

c 

c 


* 'Hie " [ LEYLAND . OPTIMNN ] INITDAT . INC " File is Included here. 
This file contains the statements which define the initially 
set Default Values of the "NAMELIST CDATA" INPUT Parameters 
and the Values of the Internally Set Constants of the OPTIMNN 
System. 

INCLUDE ' [ LEYLAND . OPTIMNN ] INITDAT . INC ’ 
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h rs n o ri rj n 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


***** Start INITDAT . INC ***** 


***** These statements define the initially set Default Values of 

the "NAMELIST CDATA" INPUT Parameters and the Values of the 
Internally Set Constants of the OPTIMNN System. 


***** DATA Set Values for the Group 1 Parameters ***** 
NONE 


***** DATA Set Values for the Group 2 Parameters ***** 


DATA 


DATA 

1 

2 

0 

1 
2 


DATA 

1 

2 

3 

0 

1 
2 
3 


CQNST1 , 

CONST2, 

CONST3 , 

CONST4, 

CGNST5, 

LARGE1, 

LARGE2, 

LARGE3 , 

LARGE4, 

SMALL1, 

SMALL2, 

SMALL3 . 

SMALL4, 

TBIMAX, 

TINIT, 

TFINL / 

0.200, 

0.500, 

0.800, 

1.200, 

1.500, 

1.0D+03, 

1.0D+06, 

1.0D+09, 

1 . QD+12, 

1 0n~03 , 

1.0D-06, 

1.0D-09, 

1.0D-12, 

1, 

0.000, 

0.000 / 


DATA Set Values 

for the Group 3 

Parameters 

***** 


DLFREQ, 

DLLGTH, 

LDELAY, 

NNLID, 


STMODL, 

TLINIT, 

TLFINL, 

TLSTEP, 


TLTYPE, 

WTSNNL 



/ 

1, 

10, 

0, 

1, 


1, 

0.000, 

0.000, 

1.000, 


0, 

NLDIM* 1.000 



/ 


DATA Set Values 

for the Group 4 

Parameters 

***** 

CDELAY, 

CVTID, 

DCFRBQ, 

DCLGTH, 

ISTEP0, 

NNCID, 

SIMODC, 

TCINIT, 

TCFINL, 

TCSTEP, 

TLTYPE, 

UPDATE, 

vrrsmc 



/ 

0, 

1, 

1, 

10, 

1, 

1, 

1, 

0.000, 

0.000, 

1.000, 

0, 

1, 

NLDIM* 1 . 000 



/ 


**** 

DATA Set Values for the Group 5 Parameters 

***** 


DATA AN, 

BN, 

CN, 

cw. 


1 

DN, 

NFUNCT, 

NI, 

NJ, 


2 

NK, 

XN0, 

YN0 


/ 

o 

NJKDIM* 0.500, 

NJKDIM* 0.500, 

NJKDIM* 1.000, 

NIJKDIM* 1.000, 


1 

NJKDIM*-! . 0D+06 , 

, NJKDIM* 0, 

NKDIM*3, 

NKDIM* 1 , 


2 

2, 

NJKDIM* 0.000, 

NJKDIM* 0.000 


/ 


***** DATA Set Values for the Group 6 Parameters ***** 
PARAMETER (™OPIO=6 . 28318530717958647693D+00) 
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c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATA 

A, 

Al, 

A2, 

A3, 

1 

ALPHA, 

B, 

Bl, 

B2, 

2 

B3 , 

c. 

Cl, 

C2, 

3 

C3 , 

D, 

Dl, 

D2, 

4 

D3 , 

IFUNCT, 

ISEEDl , 

ISEED2 , 

5 

ISEED3 , 

JSEEDl , 

JSEED2, 

JSEED3 , 

6 

NL2, 

NL3, 

NN, 

OMEGA, 

7 

PERIOD, 

PHASE, 

PHI, 

PSI, 

8 

XO, 

VO, 

YRl, 

YR2, 

9 

YR3 



/ 

o 

NL321*0.500, 

NL321*0 . 000 , 

NL321*0 . 000 , 

NL21*0 . 000, 

1 

NL321*1.000, 

NL321*0 . 500 , 

NL321*0 . 000 , 

NL321*0 . 000 , 

2 

NL21*0 . 000 , 

NL321*0.250, 

NL321*0 . 000 , 

NL321*0 . 000, 

3 

NL21*0.000, 

NL321*-1 . 0D+06 , 

NL321*0 . 000, 

NL321*0 . 000, 

4 

NL21*0.000, 

NL321*0, 

NL321 *7 8985723 , 

NL32 1*8169287 5 , 

5 

NL21 *72 919329, 

NL321 *95428381 , 

NL321* 68377297 , 

NL21*89672847, 

6 

NL1DIM* 1 , 

NL2 1*1, 

NL321*1 . 000, 

NL321*TOOPIO, 

7 

NL321*1 . 0D+10 , 

NL321*0 . 000 , 

NL321*0 . 000 , 

NL321*0 . 000 , 

8 

NL321*0 . 000, 

NL321*0 . 000 , 

NL321*0 . 000 , 

NL321*0 . 000 , 

9 

NL21*0 . 000 



/ 


★ ★ * * ★ 

DATA Set Values for the Group 

7 Parameters 

***** 

DATA 

IJKCVL, 

SCVNNL, 

JJECL, 

WTNNL, 

1 

AMAXNNL, 

AMINNNL, 

ICONNNL, 

IOPTNNL, 

2 

MITNNNL, 

OUTNNL 


/ 

o 

NIJKDIM* 0, 

NIJKDIM* 1.000, 

NL2DIM*0, 

NL2DIM*1 . 000 , 

1 NIJKDIM* 100.0, 

NIJKDIM* -100.0, 

NIJKDIM* 0, 

0, 

2 

200, 

0 


/ 


***** 

DATA Set Values for the Group 

8 Parameters 

***** 

DATA 

IJKCVC, 

SCVNNC, 

JJECC, 

WTNNC, 

1 

AMAXNNC, 

AMINNNC, 

ICONNNC , 

IOPTNNC, 

2 

MITNNNC, 

OUTNNC 


/ 

o 

NIJKDIM* 0, 

NIJKDIM* 1.000, 

NL2DIM* 0 , 

NL2DIM* 1.000, 

1 NIJKDIM*100.0, 

NIJKDIM* -100 . 0 , 

NIJKDIM* 0, 

0, 

2 

200, 

0 


/ 


***** 

DATA Set Values for the Group 

9 Parameters 

***** 



DATA 

ICV, SCVC, 

JEC, 

WTC, 



1 

AMAXC, AMINC, 

ICONC, 

SMAXC, 



2 

IOPTC, MITNC, 

OUTC 



/ 

o 

NL2DIM*0 , NL2DIM* 1.000, 

NL2DIM*0, 

NL2DIM*1. 

000, 


1 NL2DIM*10.00, NL2DIM*-10 . 00 , 

NL2DIM*0, 

NL2DIM*10 

.00, 


2 

0, 200, 

0 



/ 

***** 

DATA Set Values for the Group 

A Parameters 

***** 




NONE 


***** DATA Set Values for the Group B Parameters ***** 
NONE 
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***** DATA Set Values for the Group C Parameters ***** 


C 

C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 


DATA 

1 

CON, 

SUM5QW 

CVBDC , 

CVBDNNC, 

CVBDNNL, 

PINDX, 

SIJMSQ, 

/ 

0 

1 

NCON*0.000, 
NLDIM*0 . 000 

0 , 

0 , 

0 , 

0 . 000 , 

0 . 000 , 

/ 


DATA Set Values for the Group D Parameters ***** 


DATA 

ZERO, 

TENM8, 

TENM6, 

TENM3 , 

1 

TENM2, 

PT100, 

PT200, 

PT300, 

2 

PT500, 

PT800, 

ONE, 

TWO, 

3 

EBASE, 


THREE, 


4 

PI, 


FIVE, 


5 

TWOPI, 


EIGHT, 

TEN, 

6 

TENP2 , 

TENP3, 

TENP6, 

TENP8 / 

o 

0 . 000 , 

1.0D-08, 

1.0D-06, 

1.0D-03, 

1 

1.0D-02, 

0.100, 

0.200, 

0.300, 

2 

0 . 500,* 

0.800, 

1 . 000 , 

2.000, 

3 

2.71828182845904523536, 

3.000, 


4 

3 . 14159265358979323846 , 

5.000, 


5 

6 .28318530717958647693 , 

8.000, 

10.000, 

6 

1.0D*02, 

1.0D+03, 

1.0D+06, 

1.0D+08 / 

***** 

End INITDAT.INC 

***** 
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c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Q 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KJAG Name: 
Conputer : 
Revised: 
Purpose: 

Usage: 


Arguments: 

FCNS 


MMAX 

N 

NMAX 

X 


xs 

G 

DF 

DG 

LDDG 

U 

XL 

XU 

DCL 

LDDCL 

CD 

CWK 

VMU 

DEL 


N40NF/DN40NF (Single /Double precision version) 
CRAY /DOUBLE 
December 2, 1985 


Main driver for the successive quadratic programming 
algorithm. 

CALL N40NF (FCNS, MMAX, N, NMAX, X, XS, G, DF, DG, LDDG, 
U, XL, XU, DCL, LDDCL, CD, CWK, VMU, DEL, 
DLA, DCLF, BDEL, ETA, XOLD, DLAOLD, V, W, 
VMUOLD, DPHI, RPEN, SCG, FBEST, DFBEST, 
GBEST, DGBEST, WA, LWA, MNN2, 

M01, NFUNC, NGRAD, ITER, NQL, ILINE, 

IFLISE, NOPT, IW, LIW, PHI, DFDEL, DBD, 
ALPHAM, ALPHAO, SCF, PRD, ACTIVE, L7) 


User-supplied SUBROUTINE to evaluate the functions at 
a given point. The usage is 
CALL FCNS (M, ME, N, X, ACTIVE, F, G) , where 
M - Total number of constraints. (Input) 

ME - Number of equality constraints. (Input) 

N - Number of variables. (Input) 

X - The point at which the function is evaluated. 

(Tnpnt) 

X should not be changed by FCNS. 

ACTIVE - Logical vector of length MMAX indicating the 
ac t ive constraints . ( Input ) 


F - The computed function value at the point X. 

(Output) 

G - Vector of length MMAX containing the values of 

constraints at point X. (Output) 

FCNS must be declared EXTERNAL in the calling program. 
Order of the array DG. (Input) 

MMAX must be at least MAX (1,M) . 

Number of variables. (Input) 

Order of DCL where NMAX must be at least MAX(2,N+1) . 
(Input) 

Vector of length N containing the initial guesses to the 
solution on input and the solution on output. 

(Input /Output) 

Vector of length N containing the diagonal scaling 
matrix. (Input) 

Vector of length MMAX containing constraint values. 
(Output) 

Vector of length N+l containing the gradient of the 
of the objective function. (Output) 

Array of dimension MMAX by MMAX containing the gradient 
of the constraints. (Output) 

Leading dimension of DG exactly as specified in the 
dimension statement in the calling program. (Input) 
Vector of length MNN2 containing the multipliers of the 
nonlinear constraints and the bounds. (Output) 

Vector of length N containing the lower bounds for the 
variables . ( Input ) 

Vector of length N containing the upper bounds for the 
var iables . ( Input ) 

Array of dimension NMAX by NMAX containing an the final 
approximation to the Hessian. (Output) 

Leading dimension of DCL exactly as specified in the 
dimension statement in the calling program. (Input) 
Vector of length NMAX containing the diagonal elements of 
the Hessian. (Output) 

Work vector of length M used in gradient evaluation. 

Work vector of length M + 2*N. 

Work vector of length N+l. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DLA - Work vector of length N. 

DCLF - Work vector of length N + 1 . 

BDEL - Work vector of length N. 

ETA - Work vector of length N. 

XOLD - Work vector of length N. 

DLAOLD - Work vector of length N. 

V - Work vector of length N + 1. 

W * Work vector of length N + 1 . 

VMUOLD - Work vector of length M + 2*N. 

DPHI - Work vector of length M + 3*N. 

RPEN * Work vector of length M + 2*N. 

SCG - Work vector of length MMAX. 

FBEST * Work scalar. 

DFBEST - Work vector of length NMAX. 

GBEST - Work vector of length MMAX. 

DGBEST - Work array of dimension M01 by N. 

WA - Work vector of length UtfA. 

LWA - Length of WA where LWA = N*(2*N+13) + M + MMAX + 12. 
(Input) 

N1 - Scalar containing the value N + 1. (Input) 

MNN * Scalar containing the value M + 2*N. (Input) 

MNN2 - Scalar containing the value M + 2 *N + 2 . (Input) 

NMNN - Scalar containing the value M + 3*N. (Input) 

N01 - Scalar containing the value 1 when LLISE is true or N 

when LLISE is false. (Input) 

M01 - Scalar containing the value 1 when LLISE is true or MMAX 

when LLISE is false. (Input) 

NFUNC - Number of function evaluations. (Output) 

NGRAD - Number of gradient evaluations. (Output) 

ITER - Number of iterations. (Output) 

NQL - Number of QL algorithm evaluations. (Output) 

I LINE - Number of line search evaluations. (Output) 

IFLISE - Error parameter for line search algorithm. (Output) 

NOPT - Number of optimality iterations. (Output) 

IW - Work vector of length LIW. 

LIW - Length of IW where LIW = 12. (Input) 

PHI - Scalar variable. 

DFDEL - Scalar variable. 

DBD - Scalar variable. 

ALPHAM - Scalar variable. 

ALPHAO - Scalar variable. 

SCF - Scalar variable. 

PRD - Scalar variable. 

ACTIVE - Logical vector of length LACTIV indicating which 
constraints are active. (Output) 

LACTIV - Length of ACTIVE where LACTIV must be at least 200. 

( Input ) 


L7 - Logical vectcr of length 7. 


Remark: 

The NLPQL algorithm was designed by K. Schittkowski . 


Topic: MATH Optimization 


SUBROUTINE DN40NF (FCNS, MMAX, N, NMAX, X, XS, G, DF, DG, LDDG, 
& U, XL, XU, DCL, LDDCL, CD, CWK, VMU, DEL, 

& DLA, DCLF, BDEL, ETA, XOLD, DLAOLD, V, W, 

& VMUOLD, DPHI, RPEN, SCG, FBEST, DFBEST, 

& GBEST, DGBEST, WA, LWA, MNN2, M01, NFUNC, 

& NGRAD, ITER, NQL, ILINE, IFLISE, NOPT, IW, 

& LIW, PHI, DFDEL, DBD, ALPHAM, ALPHAO, SCF, 

& PRD, ACTIVE, L7 ) 

SPECIFICATIONS FOR ARGUMENTS 

INTEGER MMAX, N, NMAX, LDDG, LDDCL, LWA, MNN2, MOl, NFUNC, 

& NGRAD, ITER, NQL, ILINE, IFLISE, NOPT, LIW, IW(*) 

DOUBLE PRECISION FBEST, PHI, DFDEL, DBD, ALPHAM, ALPHAO, SCF, 

& PRD, X (N) , XS(*), G(MMAX) , DF ( * ) , DG ( LDDG , * ) , 
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non 


c 


c 


c 


c 


c 


c 


& 

& 

& 

& 

& 


LOGICAL 

EXTERNAL 

INTEGER 


U (MNN2 ) , XL<*>, XU<*), DCL(LDDCL, *) , CD<*>, CWK(*), 
VMU(l), DEL(* ) , DLA ( * ) , DCLF(*), BDEL ( * ) , ETA ( * ) , 
XOLD(*), DLAOLD ( * ) , V(l) , W(l) , VMUOLD<*), DPHI ( * ) , 
RPEN ( 1 > , SCG ( * ) , DFBEST ( * ) , GBEST ( * ) , DGBEST (MOl , * ) , 
WA(*) 

ACTIVE (*) , 1.7(7) 

FCNS 


I, IFAIL1, ILWLS, 
LIWQL, LWAQL, ME1 


SPECIFICATIONS FOR LOCAL VARI ABLE S 
IMERIT, I OUT, IPR, IRPMAX, J, 
MMAX2, MN, MN1 , MNNl, N2, NACT 


DOUBLE PRECISION DBD1, DBDI , DCL11 , DELNM, DLAN, EDEL, EDELI, 

& EPSO, FACT, FF, OF, ON, PHIOLD, RFMAX, SDCL11, SQACC, 

& SQD, SRES, SUM, THETA, THETA1 , TW, UAD, UF, XNM, ZE 

SPECIFICATIONS FOR COMMON /DN10NF/ 
COMMON /DN10NF/ F, ACC, SCBOU, DBDFAC, ZEFAC, RPENO, RPENS, 

& RPENU, ZEFACU, DELTA, BETA, AMUE, AIM, M, ME, MAXFUN, 

& MAXIT, I PRINT, MODE, IFAIL, LLISE, LQL, LMERIT 

INTEGER M, ME, MAXFUN, MAXIT, I PRINT, MODE, IFAIL 
DOUBLE PRECISION F, ACC, SCBOU, DBDFAC, ZEFAC, RPENO, RPENS, 

& RPENU, ZEFACU, DELTA, BETA, AMUE, ALM 

LLISE, LQL, LMERIT 

SPECIFICATIONS FOR COMMON /DN11NF/ 
/EN11NF/ Nl, LACT, NOl, MNN, NMNN 
Nl, LACT, NOl, MNN, NMNN 

SPECIFICATIONS FOR INTRINSICS 
DABS , EMAX1 , EMINl , DBLE, DSQRT 

SPECIFICATIONS FOR SUBROUTINES 
E1USR, QAXPY, DCOPY, DSCAL, DSET, DVCAL, UMACH, 
DCSFRG, DN50NF, DN50NG, DN60NG, DN70NG, EN80NG 
SPECIFICATIONS FOR FUNCTIONS 
DMACH, IDAMAX, IDMAX. DDOT . DAIOT 
IDAMAX, IDMAX 


LOGICAL 

COMMON 

INTEGER 

INTRINSIC 

EXTERNAL 


EXTERNAL 
INTEGER 
DOUBLE PRECISION DMACH, 

ZE = 0.0D0 
ON * 1.0D0 
TO = 2.0D0 

EPSO = 100 . 0D0*EMACH (4) 
UF = EPSO* EPSO 
OF = ON/UF 
CALL UMACH (2, I OUT) 


DDOT, DAIOT 

CONSTANT DATA 


INITIAL DEFINITIONS 


MN = M + N 
ME1 = ME + 1 
N2 = N + N 

LWAQL = LWA - MMAX - 40 
LIWQL * LIW - 10 
ILWLS = 2*MMAX + 1 
IMERIT = 0 

IF ( .NOT. IMERIT) IMERIT = 4 
L7 (6) = .FALSE. 

L7 (4 ) = .FALSE. 

L7 (5) = .FALSE. 

SQACC = DSQRT (ACC) 

IF (MODE.EQ. 2 .OR. MODE.EQ.7 .OR. MODE . EQ . 3 .OR. MODE . EQ . 8 ) THEN 
L7 (6) = .TRUE. 

IF (IFAIL .EQ. -1) GO TO 610 
IF (IFAIL .EQ. -2) GO TO 650 
END IF 
I LINE - 0 
ALPHAO = ZE 
NFUNC = 0 
NGRAD = 0 
ITER = 0 
NQL = 0 
NOPT = 0 

IF (M .NE. 0) THEN 

MMAX2 = MMAX + MMAX 
DO 10 J=l, MMAX2 
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ACTIVE (J) = .TRUE. 

10 CONTINUE 
END IF 

IF ( . NOT . L7 ( 6 ) ) THEN 
CALL E1USR CON') 

CALL FCNS (M, ME, N, X, ACTIVE (MMAX+1 ) , F, G) 

CALL E1USR ( * OFF ' ) 

CALL DN50NF (FCNS, M, ME, MMAX, N, X, XS, ACTIVE, F, G, DF, 

& DG, CWK) 

END IF 

L7 (1) = .FALSE. 

L7(2) = .FALSE. 

IF (DABS (F) .GE. SCBOU) THEN 
L7 (1 ) = .TRUE. 

IF (SCBOU .GT. ZE) SCF = 1 . 0D0/DSQRT (DABS (F) ) 

F = SCF*F 

CALL DSCAL (N, SCF, DF, 1) 

END IF 

IF (M .NE. 0) THEN 
DO 20 J=l, M 

IF (DABS (G ( J) ) .GE. SCBOU) L7<2) = .TRUE. 

20 CONTINUE 
END IF 
C 

IF ( L7 ( 2 ) ) THEN 
DO 30 J=l, M 

IF (SCBOU .GT. ZE) SCG(J) = 1 . 0D0/DMAX1 ( 1 . 0D0 , 

Sc DSQRT (DABS (G( J) ) ) ) 

G ( J) = SCG ( J) *G ( J) 

CALL DSCAL (N, SCG(J) , DG(J,1), LDDG) 

30 CONTINUE 

END IF 
C 

IF (IPRINT .GE. 1) THEN 

IF ( L7 ( 1 ) .AND. . NOT . L7 ( 2 ) ) WRITE (IOUT, 99963) 

99963 FORMAT (/, 5X, 'OBJECTIVE FUNCTION WILL BE SCALED’) 

IF ( L7 ( 1 ) .AND. L7 ( 2 ) ) WRITE (IOUT, 99964) 

99964 FORMAT (/, 5X, 'OBJECTIVE AND CONSTRAINT FUNCTIONS WILL BE 

Sc ' SCALED ' ) 

IF ( . NOT . L7 ( 1 ) .AND. L7 ( 2 ) ) WRITE (IOUT, 99965) 

99965 FORMAT (/, 5X, ' CONSTRAINT FUNCTIONS WILL BE SCALED') 

END IF 

C 

NFUNC = NFUNC + 1 

NGRAD = NGRAD + 1 

DCLF(Nl) = 0.0D0 

CALL DCOPY (N, DF, 1, DEL, 1) 

CALL DSCAL (N, -1.0D0, DEL, 1) 

CALL DSET (N, 0.0D0, DCL(N1,1), LDDCL) 

CALL DSET (N, 0.0D0, DCL(l,Nl), 1) 

DCL(N1 ,N1) = ZEFAC 

IF (MODE. EQ. 1 .OR. MODE . EQ . 6 .OR. MODE . EQ . 3 .OR. MODE . EQ . 8 ) THEN 
IF (LQL) GO TO 50 
GO TO 750 
END IF 
C 

CALL DSET (N, 1.0D0, CD, 1) 

DO 40 1=1, N 

CALL DSET (N, 0.0D0, DCL(1,I), 1) 

40 CONTINUE 

CALL DSET (N, 1.0D0, DCL(1,1), LDDCL+1) 

50 CALL DSET (MNN, RPENS, RPEN, 1) 

CALL DSET (MNN, 0.0D0, VMU, 1) 

IF (MODE. EQ. 1 .OR. MODE . EQ . 6 .OR. MODE . EQ . 3 .OR. MODE . EQ . 8 ) 

& CALL DCOPY (MNN, U, 1, VMU, 1) 

CALL DN50NG (IMERIT+3, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
& DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

U 4) 

C START MAIN LOOP, PRINT INTERMEDIATE 
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ITERATES 


60 CONTINUE 

L7 (3 ) = .FALSE. 

IF (I PRINT .LT. 3) GO TO 90 
IF ( L7 ( 1 ) ) F = F/SCF 

WRITE (IOUT, 99966) ITER, F, (X(I),I=1,N) 

99966 FORMAT (//5X, ' ITERATION * , 13, //8X, 'FUNCTION VALUE: F(X) = ' 

& D16.8, /8X, ’VARIABLE: X =\ /, (9X,4D16.8)) 

IF (L7 (1 ) ) F = F*SCF 

IF (M.NE.O .AND. (L7 (1) .OR.L7 (2) ) ) THEN 

IF (L7 (1 ) ) CALL DSCAL (M, 1.0D0/SCF, VMU, 1) 

IF (L7 (2) ) THEN 
DO 70 J=l, M 

VMU { J) = VMU ( J) *SCG( J) 

G(J) = G(J)/SCG(J) 

70 CONTINUE 

END IF 
END IF 

WRITE (IOUT, 99967) (VMU(J) , J=1 ,MNN) 

99967 FORMAT (8X, 'MULTIPLIERS: U=\ /, (9X,4D16.8)) 

IF (M .NE. 0) THEN 

WRITE (IOUT, 99968) <G(J) , J=1,M) 

99968 FORMAT (8X, ’ CONSTRAINTS : G(X) =’, /, (9X,4D16.8)) 

IF (L7 (1) .OR. L7 (2) ) THEN 

IF ( L7 ( 1 ) ) CALL DSCAL (M, SCF, VMU, 1) 

IF ( L7 ( 2 ) ) THEN 
DO 80 J=l, M 

VMU ( J) - VMU(J) /SCG(J) 

G( J) = G(J)*SCG(J) 

80 CCX7TINUE 

END IF 
END IF 
END IF 

90 ITER = ITER + 1 

IF (ITER .LT. MAXIT) GO TO 100 
IFAIL = 1 

IF (I PRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99969) 

99969 FORMAT (8X, ' **MDRE THAN MAXIT ITERATIONS') 

GO TO 350 

100 CONTINUE 

C SEARCH DIRECTION 

CALL DCOPY (N, DF, 1, DCLF, 1) 

DO 110 1=1, N 

V(I) = XL (I ) - X(I) 

110 CONTINUE 

DO 120 1=1, N 

W(I) = XU(I) - X<I) 

120 CONTINUE 
IPR = 0 

IF (IPRINT.GT.10 .AND. IPRINT.LT. 1000) IPR = I PRINT - 10 
IF (MODE .GE. 5) GO TO 130 
IFAILl = ITER 

IF (L7{4) .OR. L7 (5) ) IFAILl = 1 
IW(ll) = 0 
IF (LQL) IW(ll) = 1 
IW (12 ) = 0 

CALL DN60NG (M, ME, MMAX, N, NMAX, MNN, DCL, LDDCL, DCLF, DG, 
& LDDG, G, V, W, DEL, U, IFAILl, IPR, WA(MMAX+41) , 

& LWAQL, IW(ll), LIWQL) 

DEL (N1 ) = ZE 
NQL = NQL + 1 
'Ll (A) = .FALSE. 

IF (IFAILl .EQ. 0) GO TO 220 
130 CONTINUE 

IF (ITER .EQ. 1) GO TO 140 

FACT = TW*DABS (DBD*DFDEL) / (DSQRT (DBD) * (ON-DEL (N1 ) ) ) 

IF (LQL) FACT = FACT* FACT 
DCL 11 = DMAXl ( ZEFAC , FACT) 
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DCL(N1,N1) = DMIN1 ( ZEFACU , DCL1 1 ) 

140 CONTINUE 

CALL DSET (N, O.ODO, DEL, 1) 

DEL (Nl ) =1.0D0 
C 

IF (M .NE. 0) THEN 

CALL DCOPY (M, G, 1, DG(1,N1), 1) 

CALL DSCAL (M, -1.0D0, DG(1,N1), 1) 

DO 150 J=l, M 

IF ( .NOT. ACTIVE (J) ) DG(J,N1) = O.ODO 
150 CONTINUE 
END IF 
C 

V (Nl ) = O.ODO 
W (Nl) = 1.0D0 
IFAIL1 = -ITER 

IF ( . NOT . L7 < 4 ) .OR. L7(5)) IFAILl = -1 
IW{11) = 0 
IF (LQL) IW(ll) = 1 
IW( 12 ) = 1 

CALL DN60NG (M, ME, MMAX, Nl , NMAX, MNN2 , DCL, LDDCL, DCLF, DG, 
Sc LDDG, G, V, W, DEL, U, IFAILl, IPR, WA(MMAX+41), 

Sc LWAQL, IW(ll), LIWQL) 

NQL = NQL + 1 
MN1 = M + Nl + 1 
MNN1 = M + Nl + N 
L7 (4) = .TRUE. 

IF (IFAILl .EQ. 0) GO TO 170 
160 I FAIL = 10 + IFAILl 

IF (IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99970) IFAILl 

99970 FORMAT (8X, ' * * ERROR IN QL. I FAIL (QL) =’, 13) 

GO TO 350 

170 CONTINUE 

CALL DCOPY (N+l , U(MN1) , 1, U(MNl-l), 1) 

IF (IPRINT .LT. 3) GO TO 180 
WRITE (IOUT, 99971) DEL (Nl ) 

99971 FORMAT (8X, 'ADDITIONAL VARIABLE TO PREVENT INCONSISTENCY:', 

Sc ' DELTA =' , D13.4) 

SDCL11 = DCL (Nl , Nl ) 

IF (.NOT. LQL) SDCL11 = DSQRT (SDCL11) 

WRITE (IOUT, 99972) SDCL11 

99972 FORMAT (8X, 'PENALTY PARAMETER FOR DELTA: RHO =\ D13.4) 

180 CONTINUE 

DCL11 = DCL (Nl , Nl ) 

IF (DEL (Nl ) .LT. DELTA) GO TO 220 
DCL (Nl , Nl ) = DCLll*RPENO 
IF (LQL) DCL (N1,N1) = DCL (Nl , Nl ) *RPENO 
IF (DCL11 .LT. ZEFACU) GO TO 140 

AUGMENTED LAG RANG I AN TYPE SEARCH 
DIRECTION 

190 L7 (5) = .TRUE. 

IF (IPRINT .LT. 3) GO TO 200 
WRITE (IOUT, 99973) 

99973 FORMAT (8X, ' * *WARNING : AUGMENTED LAGRANGIAN SEARCH DIRECTION') 

200 CALL DN50NG (4, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, DG, 

Sc LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 4) 

CALL DCOPY (N, DPHI, 1, WA(41), 1) 

CALL DCOPY (N, DPHI, 1, DCLF, 1) 

IFAILl = 1 
IW(ll) = 0 
IF (LQL) IW(ll) = 1 
IW ( 12 ) = 0 

CALL DN60NG (0, 0, MMAX, N, NMAX, MNN2 , DCL, LDDCL, DCLF, DG, 

Sc LDDG, G, V, W, DEL, U, IFAILl, IPR, WA (MMAX+41 ) , 

Sc LWAQL, IW(ll), LIWQL) 

IF (IFAILl .GT. 0) GO TO 160 

IF (M .EQ. 0) GO TO 230 

CALL DCOPY (N2, U, -1, U(M+1) , -1) 
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210 

220 

C 

C 

230 


C 

CMOD- 


C 

CMOD- 


240 


C 

250 


260 


DO 210 J=l, M 

U{J) = VMU(J) - DPHI(N+J) 

CONTINUE 
GO TO 230 
L7<5) = .FALSE. 

PROJECTION OF DEL, MAXIMAL 
STEPLENGTH, AND NORM OF X, DEL 

ALPHAM = OF 
XtVl = 0.0D0 
DELNM = 0.0D0 
DO 240 1=1, N 

IF (W(I) .LT. DEL(I)) DEL(I) = W(I) 

IF (V(I) .GT. DEL(I)) DEL (I) = V(I) 

UAD = DABS (DEL (I) ) 

IF {DEL (I) .GT. UF) ALPHAM = MINI (ALPHAM, W( I) /DEL (I) ) 


R.K. Owen, PhD, 12/17/91— 

IF (DEMI) .GT. UF) THEN RKO 

IF (ALPHAM* DEL ( I ) .GT. W(I) ) THEN RKO 

ALPHAM = W(I) /DEL (I) RKO 

ENDIF RKO 

ENDIF RKO 

IF (DEL (I) .LT. -UF) ALPHAM = EMIN1 (ALPHAM, V(I ) /DEL (I ) ) 

R.K. Owen, PhD, 12/17/91 

IF (DEL(I) .LT. -UF) THEN RKO 

IF (ALPHAM* DEL ( I ) .GT. V(I)) THEN RKO 

ALPHAM = V(I) /DEL(I) RKO 

ENDIF RKO 

ENDIF RKO 


XNM = DMAX1 (DABS (X(I) ) , XNM) 

DEINM = DMAX1 (UAD, DELNM) 

ALPHAM = CMAX1 (ON, ALPHAM) 

ALPHAM = EMIN1 (ALPHAM, AIM) 

GRADIENT OF LAGRANGIAN 

DO 260 1=1, N 

UAD = DF (I) 

IF (L7(5) ) UAD = DPHI(I) 

DLA(I) = UAD - U (M+I ) - U(MN+I) 

CONTINUE 


C 


IF (M.NE.O .AND. .NOT.L7(5)) THEN 
DO 270 J=l, M 

IF (U(J) .NE. ZE) CALL DAXPY (N, -U(J), DG(J,1), LDDG, 
& DLA, 1) 

270 CONTINUE 
END IF 

IF (L7 (3 ) ) GO TO 680 

C STORE SOME DATA 

CALL DCOPY (N, DLA, 1, DLAOLD, 1) 

CALL DCOPY (N, X, 1, XOLD, 1) 

DFDEL = DDOT (N, DF, 1 , DEL, 1 ) 

IRPMAX = IDAMAX (N, DLA, 1 ) 

DLAN = DABS (DLA (IRPMAX)) 

CALL DCOPY (MNN, VMU, 1, VMUOLD, 1) 

C DETERMINE B*D AND D(T)*B*D 

IF ( .NOT. LQL) THEN 
DO 280 1=1, N 

ETA(I) = DDOT(N-I+l,DCL(I,I),LDDCL,DEL(I),l) 

280 CONTINUE 

DBD = DDOT (N , ETA, 1 , ETA , 1 ) 

DO 290 1=1, N 

BDEL(I) = DDOT ( I , DCL (1,1) , 1 , ETA, 1 ) 

290 CONTINUE 

ELSE 

DO 300 1=1, N 

BDEL(I) = DDOT (N , DCL (1,1), LDDCL , DEL , 1 ) 

300 CONTINUE 

DBD = DDOT (N, BDEL, 1 , DEL, 1) 

END IF 
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C TEST FOR OPTIMALITY AND FINAL OUTPUT 

SRES = ZE 
SUM = DABS ( DFDEL ) 

IF (L7 (1) ) SUM = SUM/SCF 
NACT = 0 

IF (M .NE. 0) THEN 
DO 310 J=l, M 

IF (ACTIVE (J) ) NACT = NACT + 1 
UAD = DABS (G ( J) ) 

IF { L7 ( 2 ) ) UAD = UAD/SCG ( J) 

IF ( J.LE.ME .OR. G(J).LT.ZE) SRES = SRES + UAD 
310 CONTINUE 

SUM = SUM + DAIOT (M, U, 1 ,G, 1) 

IF (IPRINT .EQ. 3) THEN 
WRITE (IOUT, 99974) SRES 

99974 FORMAT (8X, • SUM OF CONSTRAINT VIOLATIONS : \ 19X, 

& ' SCV =*, D13.4) 

WRITE (IOUT, 99975) NACT 

99975 FORMAT (8X, 'NUMBER OF ACTIVE CONSTRAINTS: ' , 19X, 

& 'NAC = \ 14) 

END IF 
END IF 
C 

DO 320 1=1, N 

SUM = SUM + DABS (U (M+I) *V(I) ) + DABS (U (MN+I) *W(I) ) 

320 CONTINUE 

IF (IPRINT .EQ. 2) THEN 
FF = F 

IF ( L7 ( 1 ) ) FF = F/SCF 

WRITE (IOUT, 99976) ITER, FF, SRES, NACT, I LINE, ALPHAO, 

& DEL (N1 ) , DLAN, SUM 

99976 FORMAT (IX, 13, D16.8, D10. 2, 14, 13, 4D10.2) 

END IF 

C 

IF (IPRINT .EQ. 3) THEN 
WRITE (IOUT, 99977) SUM 

99977 FORMAT (8X, ' KUHN-TUCKER OPTIMALITY CONDITION : ', 9X, 

& 'KTO =' , D13.4) 

WRITE (IOUT, 99978) DLAN 

99978 FORMAT (8X, 'NORM OF LAGRANG I AN GRADIENT: * , 9X, 

& ’ NLG =' , D13.4) 

END IF 

IF (DBD .GE. UF) GO TO 330 
IF (SRES .LT. SQACC ) GO TO 340 
IF (DBD .GT. ZE) GO TO 390 
IF ( . NOT . L7 ( 5 ) ) GO TO 190 
IFAIL = 7 

IF (IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99979) 

99979 FORMAT (8X, ’ * * UNDERFLOW IN D(T)*B*D AND INFEASIBLE ITERATE X’) 

GO TO 350 

330 CONTINUE 

IF (SUM. GE. ACC .OR. SRES . GT . SQACC ) GO TO 390 
IF ( DLAN. LE.DSQRT( SQACC) .OR. DBD. LE. ACC) GO TO 340 
NOPT = NOPT + 1 
IF (NOPT .LT. 3) GO TO 390 
340 IFAIL = 0 
350 CONTINUE 

IF ( L7 ( 1 ) ) F = F/SCF 

IF (M. EQ. 0 .OR. ( . NOT . L7 ( 1 ) . AND . . NOT . L7 ( 2 ) ) ) GO TO 370 
IF ( L7 ( 1 ) ) CALL DSCAL (N, 1.0D0/SCF, U, 1) 

IF ( L7 ( 2 ) ) THEN 
DO 360 J=l, M 

U(J) = U ( J ) * SCG ( J ) 

G ( J) = G ( J ) / SCG ( J ) 

360 CONTINUE 
END IF 
370 CONTINUE 
C 


Appendix C: DN40NF1 .FOR - 8 




IF (IPRINT .EQ. 0) GO TO 9000 
WRITE (IOUT, 99980) 

99980 FORMAT (//, 5X, ' * FINAL CONVERGENCE ANALYSIS’, /) 

WRITE (IOUT, 99981) F 

99981 FORMAT (8X, ’OBJECTIVE FUNCTION VALUE: F(X) = ', D16.8) 

WRITE (IOUT, 99982) (X(I),I=1,N) 

99982 FORMAT (8X, ’APPROXIMATION OF SOLUTION: X =’, /, (9X,4D16.8)) 

WRITE (IOUT,99983) (U (J) , J=1,MNN) 

99983 FORMAT <8X, ’APPROXIMATION OF MULTIPLIERS: U = ', /, (9X,4D16.8)) 

IF (M .EQ. 0) GO TO 380 

WRITE (IOUT, 99984) (G(J) ,J=1,M) 

99984 FORMAT (8X, ’CONSTRAINT VALUES: G(X) =*, /, (9X,4D16.8)) 

380 WRITE (IOUT, 99985) (V(I),I=1,N) 

99985 FORMAT (8X, ’DISTANCE FROM LOWER BOUND: XL-X = ’, /, (9X,4D16.8)) 

WRITE (IOUT, 99986) (W(I),I=1,N) 

99986 FORMAT (8X, ’DISTANCE FROM UPPER BOUND: XU-X = ’, /, (9X,4D16.8)) 

IF ( .NOT.LLISE) WRITE (IOUT, 99987) ITER 

99987 FORMAT (8X, 'NUMBER OF ITERATIONS: ITER =', 14) 

WRITE (IOUT, 99988) NFUNC 

99988 FORMAT (8X, ’NUMBER OF FUNC-CALLS: NFUNC = ’, 14) 

WRITE (IOUT, 99989) NGRAD 

99989 FORMAT (8X, ’NUMBER OF GRAD-CALLS: NGRAD =\ 14) 

WRITE (IOUT, 99990) NQL 

99990 FORMAT (8X, ’NUMBER OF QL- CALLS: NQL =\ 14, ///) 

GO TO 9000 

390 CONTINUE 

C CORRECT PENALTY PARAMETER 

IF ( L7 ( 5 ) ) GO TO 400 
WA ( 1 ) = DBD 
WA(2) = DEL(Nl) 

WA(3} = RPENU 
WA{4 ) = DBLE(ITER) 

CALL DN50NG ( IMERIT+2 , M, ME, N, MNN, M4NN, ACC, RPEN, F, DF, G, 
& DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

& 4) 

GO TO 430 
400 SUM = 2E 

DO 410 1=1, N 

410 SUM = SUM + DPHI ( I ) *DEL ( 1 ) + DABS (U (M+I ) *V (I) ) + 

& DABS ( U (MN+I ) *W ( I ) ) 

IF (SUM .GT. DSQRT(SQACC) ) GO TO 430 
DO 420 J=l, MNN 

420 RPEN(J) = EMINl(ZEFACU,RPEN(J)*RPENO) 

CALL EN50NG (IMERIT+4, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
& DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

& 4) 

430 IF (IPRINT .LT. 3) GO TO 440 
WRITE (IOUT, 99991) DBD 

99991 FORMAT (8X, ’PRODUCT OF SEARCH DIRECTION WITH BFGS -MATRIX: ’, 

& ’ DBD =’ , D13.4) 

WRITE (IOUT, 99992) (RPEN(J) ,J=1,MNN) 

99992 FORMAT (8X, ’PENALTY PARAMETER: R , (9X,4D16.8)) 

440 CONTINUE 

C EVALUATION OF MERIT FUNCTION 

C 

450 CALL DN50NG (IMERIT+3, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
& DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

& 4) 

IF ( . NOT . L7 ( 5 ) ) CALL DN50NG (IMERIT+4, M, ME, N, MNN, NMNN, ACC, 
& RPEN, F, DF, G, DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, 

& ACTIVE, WA, 4) 

PRD = DD0T(N, DPHI, 1, DEL, 1) 

DO 460 J=l, MNN 

460 PRD = PRD + DPHI (J+N)*(U(J) -VMU (J) ) 

PHIOLD = PHI 

IF (PRD .LT. ZE) GO TO 480 
CALL DSCAL (MNN, RPENO, RPEN, 1) 

IRPMAX = IEMAX (MNN, RPEN, 1) 

RPMAX = EMAX1 (RPEN (IRPMAX) ,0.0D0) 
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IF (RPMAX .LT. RPENU) GO TO 450 
IF ( L7 ( 5 ) ) GO TO 470 

IF ( . NOT . L7 ( 4 ) .OR. DBD.LT.ACC) GO TO 190 
DCL11 = DCL (N1 , N1 ) 

IF (DCL11 .GE. ZEFACU) GO TO 190 
DCL11 = DCL 1 1 * RPENO 
IF (LQL) DCL11 = DCL11* RPENO 
DCL (N1 ,N1 ) = DCL11 
GO TO 140 
470 CONTINUE 
I FAIL = 2 

IF {IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99993) PRD 

99993 FORMAT (8X, ' ** SEARCH DIRECTION NOT PROFITABLE: DPHI*P = ', 

& D13.4) 

GO TO 350 
480 CONTINUE 

IF (IPRINT .LT. 3) GO TO 490 
WRITE (IOUT, 99994) PRD 

99994 FORMAT (8X, 'PRODUCT LAGRANGIAN GRADIENT WITH ' , ’SEARCH 

& ’DIRECTION: DLP = ' , D13 . 4 ) 

490 CONTINUE 

C LINE SEARCH 

WA ( 6 ) = XNM 
WA (7 ) = DELNM 
L7 (7 ) = .FALSE. 

IFLISE = 0 
500 IPR = 0 

IF (IPRINT .GE. 1000) IPR = IPRINT - 1000 

CALL DN80NG (ALPHAO, ALPHAM, PHI, PRD, AMUE, BETA, ILINE, 

& MAXFUN, IFLISE, IPR, WA(6), 35, IW, 10, 

& ACTIVE ( ILWLS) , 5) 

IF (IFLISE .GT. -2) GO TO 520 
L7 (7) = .TRUE. 

FBEST = F 

CALL DCOPY (M, G, 1, GBEST, 1) 

IF (LLISE) GO TO 500 

CALL DCOPY (N, DF, 1, DFBEST , 1) 

DO 510 1=1, N 

CALL DCOPY (M, DG(1,I), 1, DGBEST(1,I), 1) 

510 CONTINUE 
GO TO 500 
520 CONTINUE 

DO 530 1=1, N 

530 X(I) = XOLD(I) + ALPHAO * DEL ( I ) 

DO 540 J=l, MNN 

540 VMU(J) = VMUOLD(J) + ALPHAO* (U (J) -VMUOLD (J) ) 

IF (IFLISE .EQ. 0) GO TO 570 
IF (IFLISE .EQ. 1) GO TO 560 
IF (IFLISE -GT. 1) GO TO 550 
GO TO 600 

550 I FAIL = 1000 + IFLISE 

IF (IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99995) IFLISE 

99995 FORMAT (8X, * **ERROR IN LINE SEARCH. IFLISE =’, 14) 

GO TO 350 

560 I FAIL = 4 

IF (IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99996) 

99996 FORMAT <8X, • **MORE THAN MAXFUN FUNC- CALLS IN LINE SEARCH') 

GO TO 350 

570 L7 (3) = .TRUE. 

IF (IPRINT .LT. 3) GO TO 580 
IF (ILINE .EQ. 1) WRITE (IOUT, 99997) 

99997 FORMAT (8X, ’LINE SEARCH SUCCESSFUL AFTER ONE STEP: ALPHA = 1.') 

IF (ILINE .GT. 1) WRITE (IOUT, 99998) ILINE, ALPHAO 

99998 FORMAT (8X, ’LINE SEARCH SUCCESSFUL AFTER’, 13, ’ STEPS:', 

& ’ ALPHA =* , D13.4) 

580 CONTINUE 
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IF (.N0T.L7(7> .AND. LLISE) GO TO 630 
IF ( . NOT . L7 ( 7 ) .AND. .NOT. LLISE) GO TO 250 
F = FBEST 

CALL DCOFY (M, GBEST, 1, G, 1) 

IF (LLISE) GO TO 630 

CALL DCOPY (N, DFBEST , 1, DF, 1) 

DO 590 1=1, N 

CALL DCOPY (M, DGBEST(1,I), 1, DG(1,I), 1) 

590 CONTINUE 

CALL DN50NG (IMERIT+1, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 

& DG, LDDG, VMU, U, X, XL, XU, PHI, DFHI , ACTIVE, WA, 

& 4) 

GO TO 250 
600 CONTINUE 

NEW FUNCTION AND GRADIENT VALUES 

IF (L7 (6) ) THEN 
IFAIL = -1 
GO TO 9000 
END IF 

CALL E1USR < 'ON' ) 

CALL FCNS (M, ME, N, X, ACTIVE (MMAX+1 ) , F, G) 

CALL E1USR ('OFF') 

610 CONTINUE 

IF (L7 (1) ) F = F*SCF 

IF (M.NE.O .AND. L7(2)) THQtf 
DO 620 J=l, M 

G( J) = SCG(J)*G(J) 

620 CONTINUE 
END IF 

NFUNC = NFUNC + 1 

CALL DN50NG (IMERIT+3 , M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
i DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

& 4) 

IF (LLISE .AND. .NOT.L7(3)) GO TO 500 
630 CONTINUE 

CALL EN50NG (IMERIT+1, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
& DG, LDDG, VMU, U, X, XL, XU, PHI, DPHI, ACTIVE, WA, 

& 4) 

IF (L7 (1) ) F = F/SCF 
IF (M.NE.O -AND. L7(2)) THEN 
DO 640 J=l, M 

G ( J) = G(J)/SCG(J) 

640 CONTINUE 
END IF 

IF ( L7 ( 6 ) ) THEN 
IFAIL = -2 
GO TO 9000 
END IF 

CALL DN50NF (FCNS, M, ME, MMAX, N, X, XS, ACTIVE, F, G, DF, DG, 

& CWK) 

650 CONTINUE 

NGRAD = NGRAD + 1 
IF (L7 (1) ) THEN 
F = F*SCF 

CALL DSCAL (N, SCF. DF, 1) 

END IF 

IF (M.NE.O .AND. L7(2)) THEN 
DO 660 J=l, M 

G ( J) = G( J) *SCG( J) 

IF (ACTIVE ( J) ) CALL DSCAL (N, SCG(J) , DG(J,1), LDDG) 

660 CONTINUE 
END IF 

IF (L7 (3 ) ) GO TO 250 

CALL DN5QNG (IMERIT+4, M, ME, N, MNN, NMNN, ACC, RPEN, F, DF, G, 
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& DG, LDDG, VMU, U # X, XL, XU, PHI, DPHI , ACTIVE, WA, 

& 4) 

PRD = DDOT(N, DPHI, 1, DEL, 1) 

DO 670 J=l, MNN 

670 PRD = PRD + DPHI (N+J) * (U ( J) -VMUOLD ( J) ) 

GO TO 500 

C UPDATE HESSIAN OF LAGRANGIAN 

680 DBD = DBD*ALPHAO*ALPHAO 

CALL DSCAL (N, ALPHAO, BDEL, 1) 

DO 690 1=1, N 

ETA (I) = DLA(I) - DLAOLD ( I ) 

690 CONTINUE 

EDEL = ALPHAO *DDOT (N, DEL, 1 , ETA, 1 ) 

DBD1 = DBDFAC*DBD 

IF (EDEL .GE. DBDl } GO TO 720 

THETA - {DBD- DBDl) / (DBD- EDEL) 

THETA 1 = ON - THETA 
DO 700 1=1, N 

700 ETA(I) = THETA*ETA(I) + THETAl *BDEL ( I ) 

710 EDEL = DBDl 
720 CONTINUE 

DBDl = DSQRT { ON / DBD ) 

EDEL I = DSQRT (ON /EDEL) 

C UPDATE FACTORIZATION 

CALL DSCAL (N, DBDl, BDEL, 1) 

CALL DSCAL (N, EDEL I , ETA, 1) 

IF (LQL) THEN 

DO 740 1=1, N 

DO 730 J=l, I 

DCL ( J, I ) = DCL ( J, I ) + ETA ( I ) * ETA ( J ) - BDEL ( I ) *BDEL ( J) 
730 CONTINUE 

740 CONTINUE 

CALL DCSFRG (N, DCL, LDDCL) 

GO TO 60 
END IF 

CALL DN70NG (N, DCL, LDDCL, CD, ETA, BDEL) 

C CORRECT DATA FOR QL- SOLUTION 

750 DO 770 1=1, N 

SQD = DSQRT(CD(I) ) 

IF (SQD .GT. UF) GO TO 760 
I FAIL = 3 

IF (IPRINT .EQ. 0) GO TO 350 
WRITE (IOUT, 99999) 

99999 FORMAT (8X, ' **UNDERFLOW, IN BFGS -UPDATE * ) 

GO TO 350 
760 CONTINUE 

IF (I .LT. N) CALL DVCAL (N-I, SQD, DCL(I+1,I), 1, DCL(I,I+1) 
& , LDDCL) 

DCL (1,1) = SQD 
770 CONTINUE 

IF (ITER .EQ. 0) GO TO 50 

C PERFORM NEXT ITERATION 

GO TO 60 
9000 RETURN 
END 
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KJAG Name: N90NG/DN9GNG ( Single /Double precision version) 

Computer : CRAY /DOUBLE 

Revised: September 24, 1987 


Purpose: Compute minimum of the unconstrained problem. 


Usage: CALL N9CNG (N, M, MEQ, MMAX, MN, MNN, NMAX, LQL, A, B, 

GRAD, G, XL, XU, X, NACT, IACT, INFO, DIAG, 
W, LW) 


Arguments: 

N 

M 

MEQ 

MMAX 

MN 

MNN 

NMAX 

LQL 


A 

LDA 


B 

GRAD 

G 

XL 


XU 


X 


NACT 

IACT 

INFO 

DIAG 


W 

LW 


Number of variables. (Input) 

Number of constraints. (Input) 

Number of equality constraints. (Input) 

Leading dimension of A. (Input) 

MMAX must be at least MAX(1,M) . 

Scalar variable suxh that MN = M + N. (Input) 

Scalar variable suxh that MNN = M + 2*N. ( Input ) 

Leading dimension of G. (Input) 

NMAX must be at least MAX(2,N) . 

Logical scalar determining the initial decomposition. 
(Input) 

If LQL is true, the initial Cholesky- factorization of G 
is performed. If LQL is false, the upper triangle of G 
contains the Cholesky- factor of a suitable decomposition. 
Array of dimension JMAX by NMAX containing the constraint 
normals in the columns. (Output) 

Leading dimension of A exactly as specified in the 
dimension statement of the calling program. (Input) 
Vector of length M1AX containing the right -hand- sides of 
the constraints . ( Input ) 

Vector of length N containing the objective function 
gradient . ( Input ) 

Array of dimension NMAX by N containing symmetric 
objective function matrix. (Input) 

Vector of length N containing the lower bounds for the 
variables. (Input) 

Vector of length N containing the upper bounds for the 
var iables . ( Input ) 

Vector of length N containing the current point being 
evaluated . ( Input ) 

Number of active constraints. (Output) 

Vector of length NACT indicating the final active 
constraints. (Output) 

Scalar containing exiting information. (Output) 

Scalar containing multiple of the unit matrix that was 
added to G to achieve positive definiteness. (Output) 
Work vector of length LW. 

Length of W where LW = 1#IAX* (2*NMAX+10) + M. 

(Input) 


Topic: 


MATH Optimization 


SUBROUTINE DN9QNG (N, M, MEQ, MMAX. MN, MNN, NMAX, LQL, A, LDA, 

& B, GRAD, G, LDG, XL, XU, X, NACT, IACT, INFO, 

Sc DIAG, W, LW) 

SPECIFICATIONS FOR ARGUMENTS 

INTEGER N, M, MEQ, MMAX, MN, MNN, M4AX, LDA, LDG, NACT, INFO, 
Sc LW, IACT ( * ) 

DOUBLE PRECISION DIAG, A(LDA, * ) , B<*), GRAD ( * ) , G(LDG, * ) , XL(*), 
Sc XU(*) , X ( *> , W(*) 

LOGICAL LQL 

SPECIFICATIONS FOR LOCAL VARIABLES 
INTEGER I, IA, ID, IFINC, I FLAG, II, IL, IP, IPP, IR, IRA, 
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Sc IRB, IS, ITERC, ITREF, IU, IW, IWA, IWD, IWR, IWS, 

& IWW, IWWN, IWX, IWY, IWZ, IX, IY, IZ, IZA, J, JFINC, 

St JFLAG, JL, K, Kl, KDROP, KFINC, KFLAG, KK, KNEXT, 

St LFLAG, MFLAG, NFLAG, NM, NU 

DOUBLE PRECISION BIG, CVMAX, DIAGR, FDIFF, FDIFFA, GA, GB, 

St PARING, PARNEW, RATIO, RES, SMALL, STEP, SUM, SUMA, 

& SUMB, SUMC, SUMX, SUMY, TEMP, TEMPA, VFACT , VSMALL , 

St XMAG, XMAGR 

LOGICAL LOWER 

SPECIFICATIONS FOR INTRINSICS 
INTRINSIC DABS , DMAXl , DMIN1 , MAXO , MINO , DSQRT 

SPECIFICATIONS FOR SUBROUTINES 


EXTERNAL DCOPY, DSET 

SPECIFICATIONS FOR FUNCTIONS 
EXTERNAL DMACH, DDOT, DSUM, DAIOT 
DOUBLE PRECISION DMACH, DDOT, DSUM, DAIOT 

INITIAL ADDRESSES 


***** Start Debug 1 ***** 

I BUG = 0 

***** End Debug 1 ***** 

VSMALL = EMACH<4) 

SMALL = DMACH (1) 

BIG = DMACH (2) 

IF (SMALL* BIG .LT. 1.0D0) SMALL = l.ODO/BIG 


IWZ = NMAX 

IWR = IWZ + NMAX* NMAX 

IWW = IWR + (NMAX* (NMAX+3) ) /2 

IWD = IWW + NMAX 

IWX - IWD + NMAX 

IWA = IWX + NMAX 

SET SOME CONSTANTS . 

VFACT = l.ODO 

SET SOME PARAMETERS. NUMBER LESS 
THAN VSMALL ARE ASSUMED TO BE 
NEGLIGIBLE. THE MULTIPLE OF I THAT 
IS ADDED TO G IS AT MOST DIAGR 
TIMES THE LEAST MULTIPLE OF I THAT 
GIVES POSITIVE DEFINITENESS. X IS 
RE-INITIALISED IF ITS MAGNITUDE IS 
REDUCED BY THE FACTOR XMAGR. A 
CHECK IS MADE FOR AN INCREASE IN F 
EVERY IFINC ITERATIONS, AFTER 
KFINC ITERATIONS ARE COMPLETED . 

DIAGR = 2.0D0 
XMAGR = 1.0D-2 
IFINC = 3 

KFINC = MAXO (10, N) 

FIND THE RECIPROCALS OF THE LENGTHS 
OF THE CONSTRAINT NORMALS. RETURN 
IF A CONSTRAINT IS INFEASIBLE DUE 
TO A 0.0E0 NORMAL. 

NACT = 0 
DO 30 K=1 , M 

SUM = DDOT(N, A(K, 1) , LDA, A(K, 1) ,LDA) 

IF (SUM .GT. O.ODO) GO TO 10 
IF (B(K) .EQ. O.ODO) GO TO 20 
INFO = -K 

IF (K .LE. MEQ) GO TO 1020 
IF (B(K) ) 20,20,1020 
10 SUM = 1.0D0/ DSQRT ( SUM ) 

20 IA = IWA + K 
W(IA) = SUM 
30 CONTINUE 

CALL DSET (N, l.ODO, W(IWA+M+1), 1) 
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IF NECESSARY INCREASE THE DIAGONAL 
ELEMENTS OF G. 

IF ( . NOT . LQL ) GO TO 150 
DIAG = O.ODO 
DO 50 1=1, N 

ID = IWD + I 
W(ID) = G<I,I) 

DIAG = EMAX1(DIAG,VSMALL-W(ID>) 

***** Start Debug 2 ***** 

IF (I -EQ. N) GO TO 50 

IF (I .BQ. N .AND. N .NE. 1) GO TO 50 
IF (N .NE. 1) II « I + 1 
IF (N .BQ. 1) II = 1 

II = I + 1 

***** End Debug 2 ***** 

DO 40 J=II, N 

GA = -DMINKW(ID) ,G(J,J) ) 

GB = DABS (W(ID) -G (J, J) ) + DABS(G(I,J)) 

IF (GB .GT. SMALL) GA = GA * G(I, J) *G(I, J) /GB 
40 DIAG = DMAX1 (DIAG, GA) 

50 CONTINUE 

IF (DIAG .GT. 0.0D0) GO TO 80 
60 DIAG = DIAGR*DIAG 
DO 70 1=1, N 

ID = IWD + I 
G(I, I) = DIAG + W ( ID) 

70 CONTINUE 

FORM THE CHOLESKY FACTORISATION OF 
G. THE TRANSPOSE OF THE FACTOR 
WILL BE PLACED IN THE R- PARTITION 
OF W. 

80 IR = IWR 

DO 110 J=l, N 
IRA = IWR 
IRB = IR + 1 
DO 100 1=1, J 

TEMP = G (I, J) 

***** start Debug 3 ***** 

IF (I .NE. 1) THEN 
IF (I .NE. 1 .OR. N .BQ. 1) THEN 
***** End Debug 3 ***** 


TEMP = TEMP - DDOT(IR-IRB+l ,W(IRB) , 1 , W(IRA+1 ) , 1 ) 
IRA = IRA + (IR-IRB+1) 

END IF 

90 IR = IR + 1 

IRA = IRA * 1 

IF (I .LT. J) W(IR) = TEMP/W(IRA) 

100 CONTINUE 

C 

c ***** start Debug 4 ***** 

C 

C6000 FORMAT (2H0 ) 

C6001 FORMAT ( 1018) 

C6002 FORMAT (4D20. 11) 

C6010 FORMAT (2H0 ,2X,4H IWR,4X,4H IRB,5X,3H IR,4X,4H IRA,6X,2H I, 
C 1 6X,2H J/8X, 5H TEMP,13X,7H VSMALL) 

C WRITE(6, 6010) 
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C WRITE (6, 6001) IWR, IRB, IR, IRA, I, J 
C WRITE (6, 6002) TEMP, VSMALL 

C WRITE (6, 6000) 

C 

C ***** End Debug 4 ***** 

C 

IF (TEMP .LT. VSMALL) GO TO 120 
W(IR) = DSQRT(TEMP) 

110 CONTINUE 
GO TO 170 

C INCREASE FURTHER THE DIAGONAL 

C ELEMENT OF G. 

120 W(J) = 1.0DO 
SUMX = 1.0D0 


K = J 

130 SUM = O.ODO 
IRA = IR - 1 
CO 140 I=K, J 

SUM = SUM - W(IRA) *W(I) 
IRA = IRA + I 
140 CONTINUE 


IR * IR - K 


C 

C 

c 

c 

c 

c 


***** Start Debug 5 ** 

IF (K .LE. 1) GO TO 7700 
***** End Debug 5 ** 

K = K - 1 


C 

c ***** start Debug 6 ***** 

C 

C7000 FORMAT (2H0 ) 

C7001 FORMAT ( 1018) 

C7002 FORMAT (4D20. 11) 

C7010 FORMAT (2H0 , 1X,5H NMAX,4X,4H IWZ,4X,4H IWR,4X,4H IWW,4X,4H IWD, 

C 1 4X,4H IWX,4X,4H IWA,5X,3H IA,5X,3H ID,5X,3H II/6X,2H M,6X,2H N, 

C 2 6X,2H I,5X,3H IR,6X,2H J,4X,4H IRB,4X,4H IRA,6X,2H K/9X,4H SUM, 

C 3 14X, 6H W ( IR) / ) 

C WRITE (6, 7010) 

C WRITE (6,7001) NMAX, IWZ, IWR, IWW, IWD, IWX, IWA, IA, ID, II 

C WRITE ( 6 ,7001 ) M, N, I, IR, J, IRB, IRA, K 

C WRITE (6, 7002) SUM, W(IR) 

C WRITE (6, 7000) 

C 

C ***** Debug 6 ***** 

C 

W(K) = SUM/W(IR) 

SUMX = SUMX + W(K)*W(K) 

IF (K .GE. 2) GO TO 130 
C 

C ***** Start Debug 7 ***** 

C 

C GO TO 7701 
C7700 I BUG = I BUG + 1 
7700 CONTINUE 

C8010 FORMAT ( 2 OH ***** IBUG = ,15) 

C WRITE (6, 8010) IBUG 
C7701 CONTINUE 
C 

C ***** End Debug 7 ***** 

C 

DIAG = DIAG + VSMALL - TEMP /SUMX 
GO TO 60 

C STORE THE CHOLESKY FACTORISATION IN 

C THE R- PARTITION OF W. 

150 IR = IWR 

DO 160 1=1, N 
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CALL DCOPY (I , G(1,I), 1, W{IR+I* (1-1} /2+1) , 1) 

160 CONTINUE 

SET Z THE INVERSE OF TOE MATRIX IN 

R. 

170 NM = N - 1 

DO 190 1=1, N 

IZ = IWZ + I 

CALL DSET (1-1, O.ODO, W<IZ) , N) 

IZ = IZ + NMI-1) 

IR = IWR + (I+I*I>/2 
W(IZ) = 1.0D0 /W(IR) 

IF (I .EQ. N) GO TO 190 
IZA = IZ 
DO 180 J=I, NM 
IR = IR + I 

SUM = DDOT( (IZ-IZA) /N+1,W(IZA) ,N,W(IR) , 1) 

IR * IR + { IZ-IZA) /N + 1 

IZ = IZ + N 

W(IZ) = -SUM/W(IR) 

180 CONTINUE 

190 CONTINUE 

SET TOE INITIAL VALUES OF SOME 
VARIABLES. ITERC COUNTS THE NUMBER 
OF ITERATIONS. ITREF IS SET TO 
1.0E0 WHEN ITERATIVE REFINEMENT IS 
REQUIRED. JFINC INDICATES WHEN TO 
TEST FOR AN INCREASE IN F. 

ITERC = 1 
ITREF = 0 
JFINC = -KFINC 

SET X TO 0.050 AND SET TOE 
CORRESPONDING RESIDUALS OF THE 
KUHN-TUCKER CONDITIONS . 

200 IFLAG = 1 

IWS = IWW - N 

CALL DSET (N, 0.0D0, X, 1) 

DO 230 1=1, N 

IW = IWW + I 
W(IW) = GRAD(I) 

IF {I .GT. NAJCT) GO TO 230 
W(I) = O.ODO 
IS = IWS + I 
K = IACT{I) 

IF (K .LE. M) GO TO 220 
IF (K .GT. MN) GO TO 210 
K1 = K - M 
W(IS) = XL(K1) 

GO TO 230 

210 K1 = K - MN 

W(IS) = -XU(K1) 

GO TO 230 

220 W(IS) = B(K) 

230 CONTINUE 

XMAG = O.ODO 

VFACT = 1.0D+0 

IF (NACT) 390,390,340 

SET THE RESIDUALS OF THE KUHN-TUCKER 
CONDITIONS FOR GENERAL X. 

240 IFLAG = 2 

IWS = IWW - N 
DO 290 1=1, N 

IW = IWW + I 
W(IW) = GRAD(I) 

IF (LQL) GO TO 270 
ID = IWD + I 
W{ID) = O.ODO 
DO 250 J=I, N 

250 W(ID) = W(ID) + G(I, J) *X ( J) 

DO 260 J=l, I 
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ID = IWD + J 

260 W(IW) = W(IW) + G(J, I) *W(ID) 

GO TO 290 

270 DO 280 J=l, N 

280 W(IW) = W(IW) + G(I,J)*X(J) 

290 CONTINUE 

IF (NACT .EQ. 0) GO TO 390 
DO 330 K=l, NACT 
KK = IACT(K) 

IS = IWS + K 

IF (KK .GT. M) GO TO 310 
W(IS) = B (KK) 

DO 300 1=1, N 

IW = IWW + I 

W(IW) = W(IW) - W(K)*A(KK,I) 

300 W(IS) = W(IS) - X(I)*A(KK,I) 

GO TO 330 

310 IF (KK .GT. MN) GO TO 320 
K1 = KK - M 
IW = IWW + K1 
W(IW) = W(IW) - W(K) 

W(IS) = XL(K1) - X (K1 ) 

GO TO 330 

320 K1 = KK - MN 
IW = IWW + K1 
W(IW) = W(IW) + W(K) 

W(IS) = -XU(Kl) + X (Kl ) 

330 CONTINUE 

PRE- MULTI PLY THE VECTOR IN THE 
S- PARTITION OF W BY THE INVERS OF 
R TRANSPOSE. 


340 IR = IWR 

IP = IWW + 1 


IPP = IWW + N 
IL * IWS + 1 
IU = IWS 4 NACT 


C 

C 

C 

C 


DO 350 I=IL, IU 

SUM = DDOT(I-IL, W(IR+1) , 1 # W(IL) , 1) 

IR = IR + I - IL + 1 
W(I) = (W ( I ) -SUM) /W ( IR) 

350 CONTINUE 

SHIFT X TO SATISFY THE ACTIVE 
CONSTRAINTS AND MAKE THE 
CORRESPONDING CHANGE TO THE 
GRADIENT RESIDUALS. 

DO 380 1*1, N 

IZ = IWZ + 1 

SUM = DDOT(IU-IL+l,W(IL) , 1,W(IZ) ,N) 

IZ = IZ + ( IU-IL+1 ) *N 


X(I) = X(I) + SUM 
IF (.NOT.LQL) THEN 
ID = IWD + I 

W ( ID) = SUM*DSUM(N-I+1,G(I, I) , LDG) 
IW = IWW + I 
DO 360 J=l, I 


ID = IWD + J 
W(IW) = W(IW> 
360 CONTINUE 

ELSE 

DO 370 J=l, N 
IW = IWW + J 
W(IW) = W(IW) 
370 CONTINUE 

END IF 
380 CONTINUE 
C 
C 
C 


G(J,I)*W(ID) 


SUM*G (I , J) 


FORM THE SCALAR PRODUCT OF THE 
CURRENT GRADIENT RESIDUALS WITH 
EACH COLUMN OF Z. 


390 KFLAG = 1 
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400 


410 


GO TO 1260 

IF (NACT .NE. N) THEN 

SHIFT X SO THAT IT SATISFIES THE 
REMAINING KUHN-TUCKER CONDITIONS. 

IL = IWS + NACT + 1 
IZA = IWZ + NACT*N 
DO 410 1=1, N 

IZ = IZA + I 

SUM = DDOT(IWW-IL+l,W(IZ) ,N,W(IL),1) 

IZ = IZ + (IWW-IL+1) *N 
X(I) = X(I) - SUM 
CONTINUE 
INFO = ITERC 

IF (NACT .EQ. 0) GO TO 440 
END IF 


UPDATE THE LAGRANGE MULTIPLIERS. 

LFLAG = 3 
GO TO 1030 

420 DO 430 K=l, NACT 
IW = IWW + K 
W(K) = W (K) + W(IW) 

430 CONTINUE 

REVISE THE VALUES OF XMAG. BRANCH IF 
ITERATIVE REFINEMENT IS REQUIRED. 

440 JFLAG = 1 
GO TO 1230 

450 IF ( I FLAG .EQ. ITREF) GO TO 240 

DELETE A CONSTRAINT IF A LAGRANGE 
MULTIPLIER OF AN INEQUALITY 
CONSTRAINT IS NEGATIVE. 

KDROP = 0 
GO TO 470 

460 KDROP = KDROP + 1 

IF (W (KDROP) -GE. 0.0D0) GO TO 470 
IF ( IACT (KDROP) .LE. MEQ) GO TO 470 
NU = NACT 
MFLAG = 1 
GO TO 1120 

470 IF (KDROP .LT. NACT) GO TO 460 
C SEEK THE GREATEAST NORMALISED 

C CONSTRAINT VIOLATION, DISREGARDING 

C ANY THAT MAY BE DUE TO COMPUTER 

C ROUNDING ERRORS. 

480 CVMAX = 0.0D0 
C 

DO 490 K=1 , M 

IA = IWA + K 

IF (W(IA) .GT. 0.OD0) THEN 

SUM = DDOT(N,X,l,A(K,l) ,LDA) - B(K) 

SUMX = -SUM*W(IA) 

IF (K .LE. MEQ) SUMX = DABS (SUMX) 

IF (SUMX .GT. CVMAX) THEM 

TEMP = DABS (B (K) ) + DAlOT(N,X, 1 , A(K, 1 ) , LDA) 

TEMPA = TEMP + DABS (SUM) 

IF (TEMP A .GT. TEMP) THEN 

TEMP = TEMP + 1 . 5D0* DABS (SUM) 

IF (TEMP .GT. TEMPA) THEN 
CVMAX = SUMX 
RES = SUM 
KNEXT = K 
END IF 
END IF 
END IF 
END IF 

490 CONTINUE 


C 

DO 520 K=1 , N 

LOWER = -TRUE. 

IA = IWA + M + K 
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IF (W(IA) .LE. O.ODO) GO TO 520 
SUM = XL (K) - X (K) 

IF (SUM) 500, 520, 510 
500 SUM = X (K) - XU (K) 

LOWER = .FALSE. 

510 IF (SUM .LE. CVMAX) GO TO 520 
CVMAX = SUM 
RES = -SUM 
KNEXT = K + M 
IF (LOWER) GO TO 520 
KNEXT = K + MN 
520 CONTINUE 

C TEST FOR CONVERGENCE 


INFO = ITERC 

IF (CVMAX .LE. VSMALL) GO TO 990 

RETURN IF, DUE TO ROUNDING ERRORS, 
THE ACTUAL CHANGE IN X MAY NOT 
INCREASE THE OBJECTIVE FUNCTION 

JFINC = JFINC + 1 

IF (JFINC .EQ. 0) GO TO 590 

IF (JFINC .NE. IFINC ) GO TO 610 

FDIFF = O.ODO 

FDIFFA = O.ODO 

DO 580 1=1, N 

SUM = 2 . 0D0*GRAD ( I ) 

SUMX = DABS (SUM) 

IF (LQL) GO TO 550 
ID = IWD + I 
W ( ID) = O.ODO 
DO 530 J=I, N 
IX = IWX + J 

W (ID) = W(ID) + G(I,J)*(W(IX)+X(J) ) 

530 CONTINUE 


C 


DO 540 J=l, I 
ID = IWD + J 
TEMP = G(J, I) *W(ID) 

SUM = SUM + TEMP 
SUMX = SUMX + DABS (TEMP) 
540 CONTINUE 

GO TO 570 

550 DO 560 J=l, N 

IX = IWX + J 

TEMP = G(I, J) MW(IX) +X( J) ) 
SUM = SUM + TEMP 
SUMX = SUMX + DABS (TEMP) 
560 CONTINUE 

570 IX = IWX + I 


FDIFF = FDIFF + SUM* (X(I) -W(IX) ) 

FDIFFA = FDIFFA + SUMX*DABS (X(I) -W(IX) ) 
580 CONTINUE 
INFO = 0 

SUM = FDIFFA + FDIFF 
IF (SUM .LE. FDIFFA) GO TO 990 
TEMP = FDIFFA + 1.5D0*FDIFF 
IF (TEMP .LE. SUM) GO TO 990 
JFINC = 0 
590 DO 600 1=1, N 

IX = IWX + I 


W(IX) = X(I) 
600 CONTINUE 


C 

C 

C 

C 

C 


FORM THE SCALAR PRODUCT OF THE NEW 
CONSTRAINT NORMAL WITH EACH COLUMN 
OF Z. PARNEW WILL BECOME THE 
LAGRANGE MULTIPLIER OF THE NEW 
CONSTRAINT. 

610 ITERC = ITERC + 1 

IWS = IWR + ( NACT+NACT * NACT ) /2 
IF (KNEXT .GT. M) GO TO 630 
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DO 620 1=1, N 

IW = IWW + I 
W(IW) = A (KNEXT, I ) 

620 CONTINUE 
GO TO 680 
630 DO 640 1=1, N 

IW = JVM + I 
W(IW) = 0.OD0 
640 CONTINUE 

Kl = KNEXT - M 
IF (Kl .CTT. N) GO TO 660 
IW = IWW + Kl 
W(IW) = 1.0DO 
IZ = IWZ + Kl 
DO 650 1=1, N 

IS = IWS + I 
W(IS) = W(IZ) 

IZ = IZ + N 
650 CONTINUE 
GO TO 690 

660 Kl = KNEXT - MN 
IW = IWW + Kl 
W(IW) = -1.0D0 
IZ = IWZ + Kl 
DO 670 1=1, N 

IS = IWS + I 
W(IS) = -W(IZ) 

IZ = IZ + N 
670 CONTINUE 
GO TO 690 
680 KFLAG = 2 
GO TO 1260 
690 PAKNEW = 0.0D0 


C 

C 

C 


IF (NACT .EQ. N) GO TO 740 
NU = N 
NFLAG = 1 
GO TO 1180 


C 

C 


700 IS = IWS + NACT 

IF (NACT .EQ. 0) GO TO 930 
SUMA = O.ODO 
SUMB = O.ODO 
IZ = IWZ + NACT*N 


APPLY GIVENS ROTATIONS TO MAKE THE 
LAST (N-NACT-2 ) SCALAR PRODUCTS 
EQUAL TO 0.OE0. 


BRANCH IF THERE IS NO NEED TO DELETE 
A CONSTRAINT. 


SUMC = DDOT(N, W(IZ+1) , 1 ,W(IZ+1) , 1 ) 
DO 710 1=1, N 

IZ = IZ + 1 


IW = IWW + I 

SUMA = SUMA + W(IW)*W(IZ) 

SUMB = SUMB + DABS(W(IW) *W(IZ) ) 
710 CONTINUE 

TEMP = SUMB + . 1 EH 0* DABS (SUMA) 

TEMPA = SUMB + . 2 EM- 0* DABS (SUMA) 

IF (TEMP .LE. SUMB) GO TO 740 
IF (TEMPA .LE. TEMP) GO TO 740 
IF (SUMB .GT. VSMALL) GO TO 720 
GO TO 740 

720 SUMC = DSQRT(SUMC) 

IA = IWA + KNEXT 

IF (KNEXT .LE. M) SUMC = SUMC/W(IA) 
TEMP = SUMC + . 1D+0*DABS (SUMA) 

TEMPA = SUMC + . 2D+0*DABS (SUMA) 

IF (TEMP .LE. SUMC) GO TO 730 
IF (TEMPA .LE. TEMP) GO TO 730 
GO TO 930 


C 


CALCULATE THE MULTIPLIERS FOR THE 
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c 

c 

c 


c 

c 


NEW CONSTRAINT NORMAL EXPRESSED IN 
TERMS OF THE ACTIVE CONSTRAINT 
NORMALS. THEN WORK OUT WHICH 
CQNTRAINT TO DROP. 

730 LFLAG = 4 
GO TO 1030 
740 LFLAG = 1 
GO TO 1030 

COMPLETE THE TEST FOR LINEARLY 
DEPENDENT CONSTRAINTS . 

750 IF {KNEXT .GT. M) GO TO 790 
DO 780 1=1, N 

SUMA = A(KNEXT, I) 

SUMB = DABS (SUMA) 

IF (NACT ,EQ. 0) GO TO 770 
DO 760 K=1 , NACT 

KK = IACT(K) 


IW = IWW + K 


TEMP = W(IW) *A(KK, I) 

SUMA = SUMA - TEMP 

SUMB = SUMB + DABS (TEMP) 

760 CONTINUE 

770 IF (SUMA .LE. VSMALL) GO TO 780 

TEMP = SUMB + . 1D+0*DABS (SUMA) 

TEMPA = SUMB + . 2D+0* DABS ( SUMA) 

IF (TEMP .LE. SUMB) GO TO 780 
IF (TEMPA .LE. TEMP) GO TO 780 
GO TO 920 
780 CONTINUE 
LFLAG = 1 
GO TO 1080 
790 K1 = KNEXT - M 

IF (K1 .GT. N) K1 = K1 - N 
DO 850 1=1, N 

SUMA = 0.0D0 
IF (I .NE. Kl) GO TO 800 
SUMA = 1.0D0 

IF (KNEXT .GT. MN) SUMA = -1.0D0 
800 SUMB = DABS (SUMA) 

IF (NACT .EQ. 0) GO TO 840 
DO 830 K=1 , NACT 

KK = I ACT ( K ) 

IF (KK .LE. M) GO TO 810 
KK = KK ~ M 
TEMP = 0.0D0 

IF (KK .EQ. I) TEMP = W(IWW+KK) 

KK = KK - N 

IF (KK .EQ. I) TEMP = ~W(IWW+KK) 

GO TO 820 

810 IW = IWW + K 

TEMP = W(IW) *A(KK, I) 

820 SUMA = SUMA - TEMP 

830 SUMB = SUMB + DABS (TEMP) 

840 TEMP = SUMB + . 1D+0* DABS (SUMA) 

TEMPA = SUMB + . 2D+0* DABS (SUMA) 

IF (TEMP .LE. SUMB) GO TO 850 
IF (TEMPA .LE. TEMP) GO TO 850 
GO TO 920 
850 CONTINUE 
LFLAG = 1 
GO TO 1080 

C BRANCH IF THE CONTRAINTS ARE 

C INCONSISTENT. 

860 INFO = -KNEXT 

IF (KDROP .EQ. 0) GO TO 990 
PARINC = RATIO 
PARNEW = PARINC 


C REVISE THE LAGRANGE MULTIPLIERS OF 

C THE ACTIVE CONSTRAINTS. 
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C 

c 

c 

c 

C 


C 

c 

c 

c 


870 IF (NACT .EQ. 0) GO TO 890 
DO 880 K=l, NACT 
IW = IWW + K 

W(K) = W (K) - PARINC*W(IW) 

IF (IACT(K) .GT. MEQ) W(K) = EMAX1 (0. ODO,W(K) ) 

880 CONTINUE 

890 IF (KDROP .EQ. 0) GO TO 970 

DELETE TOE CONSTRAINT TO BE DROPPED. 
SHIFT THE VECTOR OF SCALAR 
PRODUCTS. THEN, IF APPROPRIATE, 
MAKE ONE MORE SCALAR PRODUCT 
0.0E0. 

NU = NACT + 1 
MFLAG = 2 
GO TO 1120 

900 IWS = IWS - NACT - 1 
NU = MXN0 (N,NU) 

DO 910 1=1, NU 

IS * IWS + I 
J = IS + NACT 
910 W(IS) = W(J+1) 

NFLAG = 2 
GO TO 1180 

CALCULATE THE STEP TO THE VIOLATED 
CONSTRAINT. 

920 IS = IWS + NACT 
930 SUMY = W(IS+1) 

STEP = -RES/SUMY 
PARING = STEP/SUMY. 

IF (NACT .EQ. 0) GO TO 950 

CALCULATE THE CHANGES TO THE 

LAGRANGE MULTIPLIERS, AND REDUCE 
TOE STEP ALONG THE NEW SEARCH 
DIRECTION IF NECESSARY. 

LFLAG = 2 
GO TO 1030 

940 IF (KDROP .EQ. 0) GO TO 950 
TEMP = 1.0D0 - RATIO/ PARING 
IF (TEMP .LE. 0.0D0) KDROP = 0 
IF (KDROP .EQ. 0) GO TO 950 
STEP = RATIO* SUMY 
PARINC = RATIO 
RES = TEMP*RES 

UPDATE X AND THE LAGRANGE 

MULTIPIERS. DROP A CONSTRAINT IF 
TOE FULL STEP IS NOT TAKEN. 

950 IWY = IWZ + NACT*N 
DO 960 1=1, N 

IY = IWY + I 

960 X(I) = X(I) + STEP*W(IY) 

PAKNEW = PARNEW + PARINC 
IF (NACT .GE. 1) GO TO 870 

ADD THE NEW CONSTRAINT TO THE ACTIVE 
SET. 

970 NACT = NACT + 1 
W (NACT) = PARNEW 
I ACT (NACT) = KNEXT 
IA = IWA ■+ KNEXT 
IF (KNEXT .GT. MN) IA = IA - N 
W ( IA) = -W(IA) 

ESTIMATE TOE MAGNITUDE OF X. THEN 
BEGIN A NEW ITERATION, 

RE- INITILIS ING X IF THIS MAGNITUDE 
IS SMALL. 

JFLAG = 2 
GO TO 1230 

980 IF (SUM .LT. (XMAGR*XMAG) ) GO TO 200 
IF (ITREF) 480,480,240 


C 


INITIATE ITERATIVE REFINEMENT IF IT 
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c 

990 


1000 

1010 

1020 


c 

c 

c 

c 

c 

c 

1030 


1040 


1050 

1060 

1070 


c 

c 

1080 


1090 

1100 

1110 

c 

c 

1120 


c 

c 

c 


1130 


HAS NOT YET BEEN USED, OR RETURN 
AFTER RESTORING THE DIAGONAL 
ELEMENTS OF G. 

IF (ITERC .EQ. 0) GO TO 1000 
ITREF = ITREF + 1 
JFINC = -1 

IF (ITREF .EQ. 1) GO TO 240 
IF (.NOT.LQL) RETURN 
DO 1010 1=1, N 

ID = IWD + I 
G{ I , I) = W ( ID) 

RETURN 

THE REMAINIG INSTRUCTIONS ARE USED 
AS SUBROUTINES. CALCULATE THE 
LAGRANGE MULTIPLIERS BY 
PRE-MULTIPLYING THE VECTOR IN THE 
S- PARTITION OF W BY THE INVERSE OF 
R. 

IR = IWR + ( NACT+NACT * NACT ) /2 

I = NACT 

SUM = 0.0D0 

GO TO 1070 

IRA = IR - 1 

SUM = 0.0D0 

IF (NACT .EQ. 0) GO TO 1060 
DO 1050 J=I, NACT 
IW = IWW + J 
SUM = SUM + W { IRA) *W ( IW) 

IRA = IRA + J 
IR = IR - I 
1 = 1-1 
IW = IWW + I 
IS = IWS + I 

W(IW) = (W( IS) -SUM) /W( IR) 

IF (I .GT. 1) GO TO 1040 
IF (LFLAG .EQ. 3) GO TO 420 
IF (LFLAG .EQ. 4) GO TO 750 

CALCULATE THE NEXT CONSTRAINT TO 
DROP. 

IP = IWW + 1 
IPP = IWW + NACT 
KDROP = 0 

IF (NACT .EQ. 0) GO TO 1110 
DO 1100 K=1 , NACT 

IF ( I ACT ( K ) .LE. MEQ) GO TO 1100 
IW = IWW + K 

IF ( (RES*W ( IW) ) .GE. 0.0D0) GO TO 1100 
TEMP = W(K)/W(IW) 

IF (KDROP .EQ. 0) GO TO 1090 
IF (DABS (TEMP) .GE. DABS (RATIO) ) GO TO 1100 
KDROP = K 
RATIO = TEMP 
CONTINUE 

GO TO (860, 940), LFLAG 

DROP THE CONSTRAINT IN POSITION 
KDROP IN THE ACTIVE SET. 

I A = IWA + IACT( KDROP) 

IF ( IACT ( KDROP ) .GT. MN) IA = IA - N 
W ( IA) = -W(IA) 

IF (KDROP .EQ. NACT) GO TO 1170 

SET SOME INDICES AND CALCULATE THE 
ELEMENTS OF THE NEXT GIVENS 
ROTATION . 

IZ = IWZ + KDROP *N 

IR = IWR + ( KDROP + KDROP* KDROP) /2 

IRA = IR 

IR = IR + KDROP + 1 

TEMP = DMAX1 (DABS (W ( IR-1 ) ) , DABS (W ( IR) ) ) 

SUM = TEMP*DSQRT( (W( IR-1 ) /TEMP) **2+ (W< IR) /TEMP) **2 ) 
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GA = W(IR-l) /SUM 
GB = W(IR) /SUM 

C EXCHANGE THE COLUMNS OF R. 

DO 1140 1=1, KDROP 

IRA = IRA + 1 
J - IRA - KDROP 
TEMP = W(IRA) 

W(IRA) = W(J) 

1140 W(J) = TEMP 

W(IR) = 0.0D0 

C APPLY THE ROTATION TO THE ROWS OF R. 

W(J) = SUM 
KDROP = KDROP + 1 


DO 1150 I=KDROP, NU 

TEMP = GA*W { IRA) + GB*W(IRA+1) 

W(IRA+1) = GA*W(IRA+1) - GB*W(IRA) 

W(IRA) = TEMP 
1150 IRA = IRA + I 

C APPLY THE ROTATION TO THE COLUMNS OF 

C Z. 

DO 1160 1=1, N 

IZ = IZ + 1 


J = IZ - N 

TEMP = GA*W(J) + GB*W(IZ) 

W(IZ) = GA*W(IZ) - GB*W ( J) 

1160 W(J) = TEMP 

C REVISE IACT AND THE LAGRANGE 

C MULTIPLIERS. 

IACT ( KDROP- 1) = IACT (KDROP) 

W(KDROP-l) = W (KDROP) 

IF (KDROP .LT. NACT) GO TO 1130 
1170 NACT = NACT - 1 

GO TO (240, 900), MFLAG 

C APPLY GIVENS ROTATION TO REDUCE SOME 

C OF THE SCALAR PRODUCTS IN THE 

C S- PARTITION OF W TO 0.0E0. 


1180 IZ = IWZ + NU*N 
1190 IZ = IZ - N 
1200 IS = IWS + NU 
NU = NU - 1 

IF (NU .EQ. NACT) GO TO 1220 

IF <W(IS) .EQ. 0.0D0) GO TO 1190 

TEMP = DMAX1 (DABS (W(IS-l) ) , DABS (W(IS) ) ) 

SUM = TEMP*DSQRT ( (W(IS-l) /TEMP) **2+ (W(IS) /TEMP) ** 2 ) 
GA = W(IS-l) /SUM 
GB = W(IS) /SUM 
W(IS-l) = SUM 
DO 1210 1=1, N 

K = IZ + N 

TEMP = GA*W(IZ) + GB*W(K) 


W(K) = GA*W(K) - GB*W(IZ) 

W(IZ) = TEMP 
1210 IZ = IZ - 1 
GO TO 1200 

1220 GO TO (700, 920), NFLAG 

C CALCULATE THE MAGNITUDE OF X AN 

C REVISE XMAG. 


1230 SUM = O.ODO 

DO 1240 1=1, N 

SUM = SUM + DABS(Xd) ) *VFACT* (DABS (GRAD (I) ) '►DABS (G(I , I) *X(I) ) ) 
IF (LQL) GO TO 1240 
IF (SUM .LT. 1.0D-30) GO TO 1240 
VFACT = 1 . 0D-10*VFACT 
SUM = 1 .0D-10*SUM 
XMAG = 1 . 0D-10*XMAG 
1240 CONTINUE 

1250 XMAG = DMAX1 (XMAG, SUM) 

GOTO (450, 980), JFLAG 

C PRE-MULTIPLY THE VECTOR IN THE 
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c 

1260 


1270 


W-PARTITION OF W BY Z TRANSPOSE. 

JL = IWW + 1 
IZ * IWZ 
DO 1270 1=1, N 

IS = IWS + I 
W(IS) = 0.0D0 
IWWN = IWW + N 

was) = DDOT { IWWN-JL+1 , W(JL) , 1, W(IZ+1) , 1) 

IZ * IZ + (IWWN-JL+1) 

CONTINUE 

GO TO (400, 690) , KFLAG 

RETURN 

END 
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PROGRAM OPTIMNN 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


By Permission of Her Most Gracious Majesty 
Elizabeth R 


Jane Leyland presents 

"Ye Olde Crystal Balle Magic Incantation" 

An Elizabethan witchcraft and sorcery product 
which defines Ye Olde Magic Control Wand. 


***** This is a Main Driver Program for the Optimal Neural -Network 
Closed-Loop Trajectory Controller described in: 

1. Leyland, Jane A., "A Closed-Loop Optimal Neural -Network 

Controller to Optimise Ro tore raft Aeromechanics 1 Behaviour" 
to be published as a NASA Technical Memorandum. 

2. Leyland, Jane A., "A Higher Harmonic Optimal Controller 
to Optimise Rotorcraft Aeromechanical Behaviour", NASA 

Technical Memorandum 110390, March 1996. 


***** Start PROGRAM OPTIMNN ***** 


***** The « [LEYLAND. OPTIMNN] TYPECGM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2} the Data TYPE of the 
Principal Parameters , Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [ LEYLAND . OPTIMNN ] TYPBCOM . INC 1 


INTEGER* 4 ICASE, JERR 

EXTERNAL INIT, TRAJ 
REAL* 8 INIT, TRAJ 


1071 FORMAT ( 4 3H0 

1072 FORMAT (42H0 


NORMAL EXIT FROM OPTIMNN *****/) 
ERROR EXIT FROM OPTIMNN *****//) 


***** Initialisation ***** 

RTD = 360.00Q/TWOPI 
ICASE = 1 
JERR = 0 

***** Run Case Number "ICASE" 

100 CONTINUE 
C 

CALL INIT (JERR) 

C 

CALL TRAJ (JERR) 

C 

IF (JERR .NE. 0) GO TO 996 
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GO TO 997 
C 

c ***** Error Exit ***** 

C 

996 WRITE<6, 1072) 

WRITE (8, 1072) 

JERR = 0 

GO TO 998 
C 

C ***** Normal Exit ***** 

C 

997 WRITE (6, 1071) 

WRITE (8, 1071 ) 

C 

C ***** check for subsequent case ***** 

C 

998 IF (MULT .LE. 0) GO TO 999 
MULT = 0 

I CASE = I CASE + 1 
GO TO 100 

999 STOP 
END 
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SUBROUTINE INIT(JERR) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This subroutine: 1) reads changes to the Data Set Values of 
the INPUT DATA via NAMELIST CDATA, and then 2) initialises 
the data required to execute the trajectory simulation. 


***** Start SUBRCXJTINE INIT ***** 


***** The " [LEYLAND. OPTIMNN] TYPECOM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND. OPTIMNN] TYPECOM. INC ' 


***** The " [LEYLAND. OPTIMNN] INITDAT. INC- File is Included here. 

This file contains the statements which define the initially 
set Default Values of the "NAMELIST CDATA" INPUT Parameters 
and the Values of the Internally Set Constants of the OPTIMNN 
System. 

INCLUDE ' [LEYLAND. OPTIMNN] INITDAT. INC ' 


INTEGER* 4 JERR 


NAMELIST / CDATA / A, Al, A2, A3, ALPHA, AMAXC, AMAXNNC, AMAXNNL, 

1 AMINO, AMINNNC, AMINNNL, AN, B, Bl, B2, B3, BN, C, Cl, C2, C3, 

2 CDELAY, CN, C0NST1, CCNST2, CGNST3, C0NST4 , CQNST5 , CVTID, CW, 
3D, Dl, D2, D3 , DCFREQ, DCLGTH, DLFREQ, DLLGTH, EN, ICONC, 

4 ICONNNC, ICONNNL, ICV, IFUNCT. IJKCVC, IJKCVL, IOPTC, IOPTNNC, 

5 IOPTONL, ISEED1, ISEED2 , ISEED3 , ISTEPO, JEC, JJECC, JJECL, 

6 JSEED1, JSEED2 , JSEED3 , LARGE 1 , LARGE2, LARGE3, LARGE4 , LDELAY, 

7 MITOC, MITNNNC, MITNNNL, MULT, NFUNCT, NI, NJ, NK, NL2 , NL3 , NN, 

8 NNCID, NNLID, OMEGA, OUTC, OUTNNC, OUTNNL, PERIOD, PHASE, PHI, 

9 PSI, SCVC, SCVNNC, SCVNNL, SMALLl, SMALL2 , SMALL3 , SMALL4, SMAXC, 

0 STMODC, SmODL, TBLMAX, TCINIT, TCFINL, TCSTEP, TCTYPE, TD, 

1 TINIT, TFINL, TLINIT, TLFINL, TLSTEP, TLTYPE, TTBL, UPDATE, WTC, 

2 WTNNC, WTNNL, WTSNNC, WTSNNL, XO, XD, XNO, XTBL, YO, YD, YNO, 

3 YRl, YR2 , YR3, YTBL 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (4 OHO ***** NORMAL EXIT FROM INIT *****//) 

1072 FORMAT { 3 9H0 ***** ERROR EXIT FROM INIT *****//) 

7011 FORMAT ( 4D2 0.7) 


***** Pre-Input Data Initialisation ***** 

JERR — 0 

***** Rea d INPUT Data with NAMELIST CDATA ***** 
READ (7, CDATA) 

***** Write INPUT Data ***** 
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***** post- Input Data Initialisation ***** 

IF (JERR .NE. 0) GO TO 996 
GO TO 997 

***** Error Exit ***** 

996 WRITE (6 ,1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 

C23456789012345678901234 567 890123456789012345678901234567 8901234 567890 1234567890 
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SUBROUTINE TRAJ (JERR) 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This subroutine: 1) initialises for trajectory propagation, 

2) provides phase cut-logic, 3) reads reference trajectory 
data, 4) updates Neural -Network Parameters, 5) updates the 
control Vector, and 6) propagates the trajectory. 


***** Start SUBROUTINE TRAJ ***** 


***** The ■ [LEYLAND.OPTIMNN]TYPECCM. INC" File is Included here. 

Ibis file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND.OPTIMNNJTYPECCM. INC' 


INTEGER* 4 I, ICODE, J, JERR, K, L, LL 
INTEGER* 4 IBUG 


C 

REAL* 8 XDUM (NL2DIM) 

C 

EXTERNAL CWCTR, ENCCNF, ENCCNG, ECVCTR, ERSET, IERCD, JCTRL, 
1 JNNW, STATE 

REAL* 8 CWCTR, ENCCNF, DNCONG, ECVCTR, ERSET, JCTRL, 

1 JNNW, STATE 
INTEGER* 4 IERCD 
C 
C 

1000 FORMAT (2H0 ) 

1001 FORMAT <2H1 > 

1010 FORMAT ( 3 5H1 ***** START TRAJECTORY *****//) 

1011 FORMAT (2 OHO ***** PHASE = ,I2,3X,11H TABS = ,D13.5,3X, 
1 11H TREL = , D13 . 5/25X, 11H PINDX = ,D13.5) 


1071 PORMAT(40H0 ***** 

1072 FORMAT (39H0 ***** 

NORMAL EXIT FROM TRAJ 
ERROR EXIT FROM TRAJ 

*****//) 

*****//> 


1096 FORMAT ( 3 1H0 ***** 

1 13, 8H ***«*) 

TRAJ DEBUG POINT = , 

13, 15H, 

NNID 

1097 FORMAT (31H0 ***** 

1 I3.15H, ICODE 

1098 FORMAT(2X, 6112) 

TRAJ DEBUG POINT = , 
= ,13, 8H ♦****) 

13, 15H, 

PHASE = 

1099 FORMAT (31H0 ***** 

1 13, 8H *•***) 

TRAJ DEBUG POINT = , 

13, 15H, 

PHASE = 


7011 FORMAT (4D20. 8) 

C 

C 

C ***** INITIALISATION ***** 
C 


JERR = 0 

IF (TFINL-TINIT) 996, 996, 101 
GO TO 996 
101 WRITE (6, 1010) 

WRITE (8, 1010) 

C DFREQ0 = 0 

LMAX = 0 

C NNUP0 = 0 

TABS = TINIT 

ISTEP = 1 

IF ( TLFINL-TLINIT ) 141, 141, 102 
C 

C ***** Initialisation for the Learning Trajectory Phase ***** 
C 
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102 I PHASE = 1 
DELAY = LDELAY 
DFREQ = DLFREQ 
DLGTH = DLLGTH 
NNID = NNLID 

IF (NNID-1) 115, 114, 115 

114 NNUP = 0 

GO TO 116 

115 NNUP = 1 

116 TOUT = TLFINL 
TSTEP = TLSTEP 

IF (TLTYPE) 103, 103, 104 

103 TABS = TLINIT 
TEEL = ZERO 

T = TABS 

GO TO 105 

104 TREL = TLINIT 

TABS = TINIT + TLINIT 

T = TREL 

C 

105 TD ( 1 ) = T 

C 

I BUG = 105 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) T, TABS, TREL 

WRITE (8, 7011) T, TABS, TREL 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

IJK = 0 
NIJKCVL = 0 
DO 109 K=1 , NK 
DO 108 1=1, NI(K) 

DO 107 J=1,NJ(K) 

IF ( I JKCVL { I , J , K ) ) 107, 107, 106 

106 IJK = IJK + 1 

CMAXNNL ( IJK) = AMAXNNL ( I , J, K) 

CMINNNL ( IJK) = AMINNNL ( I , J , K ) 

CVSNNL ( IJK) = SCVNNL ( I , J, K) 

107 CONTINUE 

108 CONTINUE 

109 CONTINUE 
NIJKCVL = IJK 

C 

JJJ = 0 
NJJECL = 0 
DO 111 J=1 , NL2 (2 ) 

IF (JJECL(J) ) 111, 111, 110 

110 JJJ = JJJ + 1 
WNNL(JJJ) = WTNNL(J) 

111 CONTINUE 
NJJECL = JJJ 

C 

NCONNNL = 0 
C 

C ***** Definition of the Initial Data Values for the Sliding Window 
C Table (L = 1) . 

C 

CALL STATE ( XD (1,1) , YD (1,1) , JERR) 

IF (JERR .ME. 0) GO TO 996 
TD ( 1 ) = T 


IBUG = 111 
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WRITE (6, 1000) 

WRITE (8 ,1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6 , 7011) T, TABS, TREL 

WRITE (8 , 7011) T, TABS, TREL 

WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) (XD(I, 1) , I=1,NL2(1)) 

WRITE(8, 7011) (XD(I,1), I=1,NL2(1)) 

WRITE (6,7011) (YD(J, 1) , J=1,NL2(2)) 

WRITE (8, 7011) {YD(J, 1) , J=1,NL2(2)) 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

GO TO 181 
C 

141 IF ( TCFINL-TCINIT ) 997, 997, 142 
C 

C ***** Initialisation for the Controlled Trajectory Phase 
C 

142 IPHASE = 5 

GOTO (171,173,173,171), STMODC 

171 IF (ISTEP0) 173, 172, 173 

172 ISTEP = 1 

173 ISTEP = ISTEP + ISTEP0 
DELAY = CDELAY 
DFREQ = DCFREQ 
DLGTH = DCLGTH 

NNID = NNCID 
IF (NNID-1) 175, 174, 175 

174 NNUP = 0 
GO TO 176 

175 NNUP = 1 

176 TCUT = TCFINL 
TSTEP = TCSTEP 

IF (TCTYPE) 143, 143, 144 

143 TABS = TCINIT 
TREL = ZERO 

T = TABS 

GO TO 145 

144 TREL = TCINIT 

TABS = TABS + TREL 
T - TREL 

C 

145 TD(1) = T 

C 

IBUG = 145 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6 , 1099) IBUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6, 7011) T, TABS, TREL 

WRITE(8, 7011) T, TABS, TREL 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

IJK =0 
NIJKCVC = 0 
DO 149 K=1 ,NK 
DO 148 1=1 , NI (K) 

DO 147 J=1,NJ(K) 

IF ( I JKCVC ( I , J , K) ) 147, 147, 146 

146 IJK = IJK + 1 

CMAXNNC (IJK) = AMAXNNC (I, J, K) 
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CMINNNC ( I JK) = AMINNNC(I,J,K) 

CVSNNC(IJK) = SCVNNC ( I , J , K ) 

147 CONTINUE 

148 CONTINUE 

149 CONTINUE 
NIJKCVC = IJK 

JJJ = 0 
NJJECC = 0 
DO 151 J=1,NL2(2) 

IF ( JJECC { J) ) 151 , 151, 150 

150 JJJ = JJJ + 1 
WNNC(JJJ) = WTNNC(J) 

151 CONTINUE 
NJJECC = JJJ 

C 

NCONNNC = 0 
C 

II =0 
NICV = 0 

DO 157 I=1,NL2<1) 

IF (ICV(I) ) 157, 157, 156 

156 II = II + 1 
CMAXC(II) = AMAXC(I) 

CMINC(II) = AMINC(I) 

CVSC(II) = SCVC(I) 

157 CONTINUE 
NICV = II 

C 

JJ =0 
NJEC = 0 

DO 159 J=1 ,NL2 (2 ) 

IF (JEC(J) ) 159, 159, 158 

158 JJ = JJ + 1 
WC(JJ) = WVC ( J) 

159 CONTINUE 
NJEC = JJ 

C 

III = 0 
NCONC = 0 

DO 161 1=1 , NL2 ( 1 ) 

IF (ICONC(I)) 161, 161, 160 

160 III = III + 1 

161 CONTINUE 
NCONC = III 

C 

c ***** Definition of the Initial Data Values for the Sliding Window 
C Table (L = 1) . 

C 

CALL STATE (XD (1,1) , YD (1,1) , JERR) 

IF {JEER .NE. 0) GO TO 996 
TD(1 ) = T 


I BUG =161 
WRITE (6, 1000) 
WRITE (8, 1000) 
WRITE {6, 1099) 


I BUG, I PHASE 


T, TABS, TREL 
T, TABS, TREL 


WRITE (8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) 

WRITE (8, 7011) 

WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (6, 7011) 

WRITE (8, 7011) 

WRITE (6, 7011) 

WRITE (8, 7011) 


(XD ( 1,1), 
(XD ( 1,1) , 
(YD ( J, 1 ) , 
(YD( J, 1 ) . 


1=1, NL2 (1) ) 
1=1 ,NL2 { 1 ) ) 
J=1,NL2 (2) ) 
J=1 , NL2 (2 ) ) 
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WRITE (6, 1000) 

WRITE(8, 1000) 

C 

181 I CUT = 0 
C 

C ***** CUT LOGIC ***** 

C 

c 

200 IBUG = 200 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) IBUG, I PHASE 
WRITE <8, 1099) IBUG, I PHASE 
C WRITE(6, 1000) 

C WRITE (8, 1000) 

C WRITE(6,7011) T, TABS, TREL 

C WRITE(8,7011) T, TABS, TREL 

C WRITE(6, 1000) 

C WRITE(8, 1000) 

C 

IF (T-TCUT) 300, 202, 201 

201 T = TCUT 

202 ICUT = 1 
NNUP = 0 

IF (IPHASE) 996, 996, 203 

203 GO TO (204,204,205,996,206,206,207,996), IPHASE 

204 IPHASE = 3 
C 205 DFREQO = 1 

C DLGTH = DLLGTH 
C NNUPO = 1 

205 DLGTH = DLLGTH 
GO TO 300 

206 IPHASE = 7 

207 CVUP = 0 
DLGTH = DCLGTH 

C 

C ***** READ REFERENCE TRAJECTORY DATA ***** 

C 

C 

300 IBUG = 300 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE ( 6 , 1099 ) IBUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE(8, 1000) 

C WRITE(6,7011) T, TABS, TREL 

C WRITE (8, 7011) T, TABS, TREL 

C WRITE(6, 1000) 

C WRITE(8, 1000) 

C WRITE(6, 7011) (XD(I, 1) , I=1,NL2(1)) 

C WRITE(8, 7011 ) (XD(I, 1) , 1=1, NL2 (1) ) 

C WRITE(6, 7011) (YD(J, 1) , J=1,NL2(2)) 

C WRITE(8, 7011 ) (YD(J, 1) , J=1,NL2<2)) 

C WRITE(6, 1000) 

C WRITE(8, 1000) 

C 

IF (DFREQ) 996, 996, 301 

301 DATAR = JMOD(ISTEP-l, DFREQ) 

C IF (DATAR) 302, 304, 302 

C 302 IF (IPHASE) 996, 996, 303 

C 303 GO TO (600,600,600,996,511,511,511,996), IPHASE 
C 304 IF (IPHASE. NE. 5 .OR. NNUPO. EQ.O) GO TO 305 
C GO TO 500 

C 

C 305 LSTEP = 1 + (ISTEP - 1) /DFREQ 
c IF (DELAY-LSTEP) 306, 302, 302 

C 306 IF (IPHASE. NE. 5 .OR. DFREQO. EQ.O) GOTO 321 
C DFREQO = 0 
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GO TO 500 

IF (DATAR) 302, 305, 302 

302 IF (IPHASE) 996, 996, 303 

303 GOTO (600,600,600,996,511,511,511,996), IPHASE 

305 LSTEP = 1 + (ISTEP - 1)/DFREQ 
IF (DELAY-LSTEP) 321, 302, 302 

321 IF (LMAX-DLGTH) 323, 324, 322 

322 LMAX = DLGTH 
GO TO 324 

323 LMAX = LMAX + 1 

IF (LMAX-1) 996, 370, 324 

***** Advance the Data Values for the Sliding Window Table 
(L = 1 to LMAX) . 

324 DO 330 L = 1, LMAX-1 
LL = LMAX - L 
TD(LL+1) = TD(LL) 

DO 325 I = 1, NL2 ( 1) 

XD ( I , LL+1 ) = XD ( I , LL) 

325 CONTINUE 

DO 326 J = 1, NL2 (2 ) 

YD ( J, LL+1 ) = YD ( J, LL) 

326 CONTINUE 
330 CONTINUE 


***** Definition of the First Set (L = 1) of Data Values for the 
Sliding Window Table. 


370 CALL STATE(XD(1, 1) ,YD(1, 1) , JERR) 
IF (JERR .NE. 0) GO TO 996 
TD( 1 ) = T 


I BUG = 370 
WRITE (6, 1000) 
WRITE (8, 1000) 
WRITE (6, 1099) 
WRITE(8, 1099) 
WRITE (6, 1000) 
WRITE (8, 1000) 
WRITE (6, 7011) 
WRITE (8 , 7011) 
WRITE (6, 1000) 
WRITE (8, 1000) 


I BUG, IPHASE 
IBUG, IPHASE 


T, TABS, TREL 
T, TABS, TREL 


***** Determine State from Neural -Net Model 


DO 373 I = 1 , NL2 ( 1 ) 

XN ( I ) = XD (1,1) 

373 CONTINUE 

CALL STATENN(XN,YN, JERR) 


WRITE (6, 7011) 
WRITE (8,7011) 
WRITE (6 , 7011) 
WRITE (8, 7011) 
WRITE (6, 1000) 
WRITE (6, 1000) 
WRITE (8, 1000) 
WRITE(8, 1000) 

DO 969 L=1 , LMAX 
WRITE (6, 7011) 
WRITE (8, 7011) 
WRITE (6, 7011) 
WRITE (8, 7011) 
WRITE (6, 1000) 
WRITE (8, 1000) 


(XN ( I ) , 
(XN ( I ) ( 
(YN ( J) ( 
(YN ( J) , 


(XD( I , L) , 
(XD ( I , L) , 
(YD ( J, L) , 
(YD( J, L) , 


1 , NL2 ( 1 ) ) 
1 , NL2 ( 1 ) ) 
1 , NL2 ( 2 ) ) 
1 , NL2 ( 2 ) ) 


1=1, NL2 (1) ) 
1=1 , NL2 ( 1 ) ) 
J=1 , NL2 (2 ) ) 
J=1 ,NL2 (2) ) 
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969 CONTINUE 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

IF (NNID) 371. 371, 400 

371 IF (IPHASE) 996, 996, 372 

372 GO TO (600,600,600,996.500,500,500,996), IPHASE 
C 

C ***** NEURAL-NETWORK UPDATE ***** 

C 

C 

400 I BUG = 400 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) I BUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 


c 

WRITE (6, 1000) 






c 

WRITE (8, 1000) 






c 

WRITE (6, 1098) 

NCON, 

NCV, 

NEC, 

, NIDIM, 

NIJKDIM,- NJDIM 

c 

WRITE (6, 1098) 

NJKDIM, 

NKDIM, 

NL1DIM, NL21, 

NL2DIM, NL321 

c 

WRITE(6, 1098) 

NL3DIM, 

NLDIM, 

NLTBL 


c 

WRITE (8, 1098) 

NCON, 

NCV, 

NEC, 

, NIDIM, 

NIJKDIM, NJDIM 

c 

WRITE (8, 1098) 

NJKDIM, 

NKDIM, 

NL1DIM, NL21, 

NL2DIM, NL321 

c 

WRITE (8, 1098) 

NL3DIM, 

NLDIM, 

NLTBL 


c 

WRITE(6, 1000) 






c 

WRITE(8, 1000) 






c 

WRITE (6, 1098) 

ISTEP, 

LSTEP, 

ICUT, 

NNID, NNUPO, 

NNUP, 

c 

1 

DFREQ0, 

DFREQ, 

QATAR, 

DLGTH, IPHASE, 

LMAX 

c 

WRITE (8, 1098) 

ISTEP, 

LSTEP, 

ICUT, 

NNID, NNUPO, 

NNUP, 

c 

1 

DFREQ0, 

DFREQ, 

QATAR, 

DLGTH, IPHASE, 

, LMAX 

c 

WRITE (6, 1098) 

ISTEP, 

LSTEP, 

ICUT, 

NNID, NNUP, 


c 

1 

DFREQ, 

QATAR, 

DLGTH, 

IPHASE, LMAX 


c 

WRITE (8, 1098) 

ISTEP, 

LSTEP, 

ICUT, 

NNID, NNUP, 


c 

1 

DFREQ, 

QATAR, 

DLGTH, 

IPHASE, LMAX 


c 

WRITE (6, 7011) 

T, 

TABS, 

TREL, 

TCUT 


c 

WRITE (8, 7011) 

T, 

TABS, 

TREL, 

TCUT 



C 

IF (NNID) 500, 500, 401 
C 401 IF (NNUP) 500, 402, 500 

C 402 IF (IPHASE. NE. 5 .OR. NNUP0.EQ.0) GO TO 403 
C NNUPO = 0 
C GO TO 500 

401 IF (NNUP) 500, 403, 500 

403 IF (IPHASE) 996, 996, 404 

404 GOTO (411,411,411,996,421,421,421,996), IPHASE 
C 

C ***** Neural-Net Optimisation During the Learning Trajectory Phase 
C 

411 ICVDEF = 1 
IECDEF = 1 

CALL CWCTO(XDUM,JERR) 

IF (JERR .NE. 0) GO TO 996 
DO 412 IJK = l.NIJKCVL 
CVO(IJK) = CV(IJK) 

412 CONTINUE 
C 

IBUG =412 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE(8, 1099) IBUG, IPHASE 
C WRITE (6, 1000) 

C WRITE (8, 1000) 

C WRITE (6 , 7011 ) T, TABS, TREL 

C WRITE (8,7011 ) T, TABS, TREL 

C WRITE (6, 1000) 

C WRITE (8, 1000) 

C DO 971 L=1,LMAX 

C WRITE(6, 7011 ) (XD( I , L) , I=1,NL2(1)) 
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C WRITE(8,7011) (XD(I,L), I=1,NL2(1)) 

C WRITE (6, 7011) <YD(J,L), J=1,NL2(2)) 

C WRITE (8, 7011) (YD(J,L), J=1,NL2(2)) 

C WRITE(6, 1000) 

C WRITE (8, 1000) 

C 971 CONTINUE 

C WRITE (6, 7011) (CVO(IJK), IJK=1,NIJKCVL) 

C WRITE (8, 7011) (CVO(IJK), IJK=1 ,NIJKCVL) 

C WRITE (6, 1000) 

C WRITE (8, 1000) 

C 

c 

c ***** ICODE is the IMSL Informational Error Code Number ***** 

C 

C ICODE = 1 indicates that the Search Direction is Uphill. 

C ICODE = 2 indicates that the Line Search required more 

C than S Function Calls. 

C ICODE = 3 indicates that the Maximum Number of Iterations 

C were Exceeded . 

C ICODE = 4 indicates that the Search Direction vector is 

C close to being a Zero vector. 

C 

CALL ERSET(0, 1,0) 

ICODE = 0 

CALL DNCONF ( JNNW.NCONNNL, 0,NIJKCVL, CV0 # CVBDNNL, CMINNNL , CMAXNNL , 

1 CVSNNL,OUTNNL,MITNNNL.CV,PINDX) 

ICODE = IERCDO 
C 

I BUG = 489 
WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (6, 1097) IBUG, IPHASE, ICODE 
WRITE (8, 1097) IBUG, IPHASE, ICODE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011 ) T, TABS, TREL 

WRITE (8, 7011) T, TABS, TREL 

WRITE (6, 1000) 

WRITE (8, 1000) 

***** Determine State from Neural -Net Model ***** 

DO 413 I = 1 , NL2 ( 1 ) 

XN(I) = XD(1, 1) 

413 CONTINUE 

CALL STATENN(XN,YN,JERR) 

WRITE(6,7011) (XN(I) , I=1,NL2(1)) 

WRITE (8, 7011) (XN(I) , I=1,NL2(1)) 

WRITE (6, 7011) <YN(J), J=1,NL2(2)) 

WRITE(8,7011) (VN ( J) , J=1,NL2<2)) 

WRITE (6, 1000) 

WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (8, 1000) 

DO 972 L=1 , LMAX 

WRITE (6, 7011) (XD(I,L) , I=1,NL2(1)) 

WRITE(8,7011) (XD(I.L), I=1,NL2(1)) 

WRITE (6 , 7011) <YD(J,L), J=1,NL2(2)) 

WRITE (8 , 7011 ) (YD(J,L), J=1,NL2(2)) 

WRITE (6, 1000) 

WRITE (8, 1000) 

972 CONTINUE 

WRITE (6, 7011 ) (CV(IJK), IJK=1,NIJKCVL) 

WRITE(8 , 7011 ) (CV(IJK), IJK=1,NIJKCVL) 

WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6 , 7011 ) PINDX 

WRITE(8 , 7011 ) PINDX 

WRITE (6, 1000) 
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WRITE (8, 1000) 

C 

GO TO 500 

***** Neural-Net (Optimisation During the Controlled Trajectory Phase 

421 ICVDEF = 3 
IECDEF = 2 

CALL CWCTR(XDUM, JERR) 

IF (JERR .NE. 0) GO TO 996 
DO 422 IJK = l.NUKCVC 
CVO(IJK) = CV(UK) 

422 CONTINUE 

I BUG = 422 
WRITE(6, 1000) 

WRITE (8. 1000) 

WRITE (6, 1099) IBUG, I PHASE 
WRITE <8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6,7011) T, TABS, TREL 

WRITE(8,7011) T, TABS, TREL 

WRITE (6. 1000) 

WRITE(8,1000) 

DO 973 L=1 , U4AX 

WRITE (6, 7011) (XD(I,L) , I=1,NL2(1)) 

WRITE(8,7011) (XD(I,L) , I=1,NL2(1)) 

WRITE(6,7011) (YD(J,L), J=1,NL2<2)) 

WRITE (8, 7011) <YD(J,L). J=1,NL2(2)) 

WRITE <6, 1000) 

WRITE(8,1000) 

973 CONTINUE 

WRITE<6,7011) {CVO(IJK), IJK=1,NIJKCVL) 

WRITE (8, 7011) (CVO(IJK), IJK=1,NIJKCVL) 

WRITE (6, 1000) 

WRITE (8, 1000) 


***** ICODE is the IMSL Informational Error Code Number ***** 

ICODE = 1 indicates that the Search Direction is Uphill . 
ICODE = 2 indicates that the Line Search required more 
than 5 Function Calls. 

ICODE = 3 indicates that the Maximum Number of Iterations 
were Exceeded. 

ICODE = 4 indicates that the Search Direction vector is 
close to being a Zero vector. 

CALL ERSETT (0,1,0) 

ICODE = 0 

CALL ENCC9JF(JNNW,NCONNNC, 0,NIJKCVC,CV0,CVBDNNC,CMINNNC,CMAXNNC, 

1 CVSNNC,OUTONC,MI7TO®K,CV,PINDX) 

ICODE = IERCDO 

IBUG = 499 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1097) IBUG, IPHASE, ICODE 
WRITE (8, 1097) IBUG, IPHASE, ICODE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6, 7011) T, TABS, TREL 

WRITE (8, 7011) T, TABS, TREL 

WRITE (6, 1000) 

WRITE <8, 1000) 

***** Determine State from Neural-Net Model ***** 
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DO 423 I = 1 , NL2 ( 1 ) 

XN(I) = XD(I, 1) 

423 CONTINUE 

CALL STATENN(XN,YN. JERR) 

WRITE(6.7011) <XN(I), I=1,NL2(1)) 

WRITE (8, 7011) (XN ( I ) , I=1,NL2(1)) 

WRITE (6, 7011) (YN(J), J=1,NL2(2)) 

WRITE(8,7011) (YN< J) , J=1,NL2(2)) 

WRITE (6, 1000) 

WRITE (6, 2000) 

WRITE (8, 1000) 

WRITE(8, 1000) 

DO 974 L=1,LMAX 

WRITE(6, 7011) (XD(I,L) , I=1,NL2(1)) 

WRITE (8, 7011) (XD(I,L) , I=1,NL2(1>) 

WRITE ( 6 , 7011 ) (YD(J,L) , J=1,NL2<2)) 

WRITE(8, 7011) (YD(J,L) , J=1,NL2<2) ) 

WRITE (6, 1000) 

WRITE(8, 1000) 

974 CONTINUE 

WRITE (6, 7011) (CV(IJK), IJK=1,NIJKCVL) 

WRITE (8 , 7011 ) (CV(IJK), IJK=1 , NIJKCVL) 

WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) PINDX 

WRITE (8 , 7011) PINDX 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

C 

c ***** CONTROL VECTOR UPDATE ***** 

C 

C 

500 I BUG = 500 
WRITE(6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE (8, 1099) IBUG, IPHASE 
C 

IF ( IPHASE) 996, 996, 501 

501 GO TO (600,600,600,996,502,502,502,996), IPHASE 

502 IF (CVTID) 511, 511, 503 

503 IF (CVUP) 511, 504, 511 
C 

C ***** Control Optimisation During the Controlled Trajectory Phase ***** 
C 

504 ICVDEF = 5 
IECDEF = 3 

CALL CWCTR ( XD (1,1) , JERR) 

IF (JERR .NE. 0) GO TO 996 
DO 505 II = 1 , NICV 
CVO(II) = CV(II) 

505 CONTINUE 
C 

IBUG = 505 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE(8, 1099) IBUG, IPHASE 
C WRITE(6, 1000) 

C WRITE (8, 1000) 

C WRITE (6, 7011) T, TABS, TREL 

C WRITE(8,7011) T, TABS, TREL 

C WRITE (6, 1000) 

C WRITE (8, 1000) 

C DO 975 L=1,LMAX 

C WRITE! 6, 7011) (XD(I.L), I=1,NL2(1)) 

C WRITE (8,7011) (XD( I , L) , I=1,NL2(1)) 

C WRITEI6, 7011 ) (YD(J,L), J=1,NL2(2)) 
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C WRITE (8, 7011) (YD(J,L), J=1,NL2<2)) 

C WRITE(6, 1000) 

C WRITE(8 , 1000) 

C 975 CONTINUE 

C WRITE (6 , 7011 ) (CVO(II), II=1,NICV) 

C WRITE { 8 , 7011 ) (CVO(II), 11=1, NICV) 

C WRITE (6 , 1000) 

C WRITE <8, 1000) 

C 

c 

c ***** ICODE is the IMSL Informational Error Code Number ***** 

C 

C ICODE = 1 indicates that the Search Direction is Uphill. 

C ICODE = 2 indicates that the Line Search required more 

C than 5 Function Calls. 

C ICODE = 3 indicates that the Maximum Number of Iterations 

C were Exceeded . 

C ICODE = 4 indicates that the Search Direction vector is 

C close to being a Zero vector. 

C 

CALL ERSET (0,1,0) 

ICODE = 0 

CALL DNCQNF ( JCTRL,NCQNC, 0,NICV,CV0,CVBDC,CMINC,CMAXC, CVSC, OUTC, 

1 MITOC,CV, PINDX) 

ICODE = IERCDO 
C 

I BUG = 599 
WRITE (6, 1000) 

WRITE(8 , 1000) 

WRITE (6, 1097) IBUG, IPHASE, ICODE 
WRITE (8 , 1097) IBUG, IPHASE, ICODE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) T. TABS, TREL 

WRITE(8, 7011) T, TABS, TREL 

WRITE(6, 1000) 

WRITE (8, 1000) 

***** Determine State from Neural-Net Model ***** 

DO 509 I = 1, NL2 (1 ) 

XN(I) = XD (1,1) 

509 COOTINUE 

CALL STATENN (XN, YN, JERR) 

WRITE (6, 7011) (XN (I) , I=1,NL2(1) ) 

WRITE {8 , 7011) (XN (I ) , I=1,NL2(1>) 

WRITE (6 , 7011) (YN(J) , J=1,NL2<2)) 

WRITE (8, 7011) (YN{ J) , J=1,NL2(2)) 

WRITE (6, 1000) 

WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (8, 1000) 

DO 976 L=1 , LMAX 

WRITE{6, 7011 ) (XD(I,L) , I=1,NL2<1)) 

WRITE(8 , 7011 ) (XD(I.L). I=1,NL2(1)) 

WRITE (6 , 7011 ) (YD(J,L) , J=1,NL2(2)) 

WRITE(8, 7011) (YD(J,L), J=1,NL2<2)) 

WRITE (6, 1000) 

WRITE (8, 1000) 

976 CONTINUE 

WRITE (6 , 7011 ) (CV(II), 11=1, NICV) 

WRITE (8, 7011) (CV(II), 11=1, NICV) 

WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 7011) PINDX 

WRITE (8, 7011) PINDX 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 
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c 

IF (UPDATE) 511, 511, 506 
C 

C ***** Update the First Set (L = 1) of the Sliding Window Table 
C (i.e.,XD(I f l) and YD(J,1)} to those values determined by 

C the Current Control Optimisation (i.e., XN<I) and YN(J)). 

C 

506 DO 507 I = 1, NL2 ( 1) 

XD(I , 1 ) = XN(I) 

507 CONTINUE 

DO 508 J = 1, NL2 (2) 

YD(J,1) = YN ( J) 

508 CONTINUE 
C 

511 I BUG * 511 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6 , 1097) IBUG, IPHASE, ICODE 
WRITE (8 , 1097) IBUG, IPHASE, ICODE 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE{ 6 , 7011) T, TABS, TREL 

WRITE( 8 , 7011) T, TABS, TREL 

WRITE(6, 1000) 

WRITE (8, 1000) 

C 

C ***** Determine State from Neural-Net Model ***** 

C 

DO 510 I = 1 ,NL2 ( 1) 

XN ( I ) = XD(I , 1 ) 

510 COiTTINUE 

CALL STATENN (XN, YN, JERR) 

WRITE (6, 7011) (XN (I) , I=1,NL2(1)) 

WRITE (8, 7011) (XN (I) , I=1,NL2(1)) 

WRITE (6,7011) (YN ( J) , J=1,NL2(2)) 

WRITE (8, 7011) { YN( J) , J=1,NL2(2)) 

WRITE (6, 1000) 

WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (8, 1000) 

DO 970 L=1 , LMAX 

WRITE (6,7011) (XD(I,L), I=1,NL2(1)) 

WRITE (8, 7011) (XD( I , L) , I=1,NL2(1)) 

WRITE (6,7011) (YD( J, L) , J=1,NL2(2)) 

WRITE (8, 7011) (YD( J, L) , J=1,NL2(2)) 

WRITE( 6 , 1000) 

WRITE(8 , 1000) 

970 COKTTINUE 

WRITE(6, 7011) (CV(II), 11=1, NICV) 

WRITE (8, 7011) (CV(II), 11=1, NICV) 

WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (6, 7011) PINDX 

WRITE (8, 7011) PINDX 

WRITE (6, 1000) 

WRITE (8, 1000) 

C 

IF (ICUT) 997, 512, 997 

512 IPHASE = 6 
C 

IBUG = 512 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE (6, 1097) IBUG, IPHASE, ICODE 
WRITE (8,1097) IBUG, IPHASE, ICODE 
WRITE (6, 1000) 

WRITE (8, 1000) 

C 

GO TO 602 
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c 

C ***** TRAJECTORY propagation ***** 

c 

c 

600 I BUG = 600 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6, 1099) IBUG, IPHASE 
WRITE(8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE (8, 1000) 

C 

IF (ICOT) 141, 601, 141 

601 IPHASE = 2 
C 

602 IBUG = 602 
WRITE(6, 1000) 

WRITE(8, 1000) 

WRITE (6, 1099) IBUG, IPHASE 
WRITE <8, 1099) IBUG, IPHASE 
WRITE (6, 1000) 

WRITE(8, 1000) 

WRITE (6, 1096) IBUG, NNID 
WRITE (8, 1096) IBUG, NNID 
WRITE (6, 1000) 

WRITE (8, 1000) 

WRITE(6, 1011) IPHASE, TABS, TREL, PINDX 
WRITE (8,1011) IPHASE, TABS, TREL, PINDX 
C 

I STEP = I STEP + 1 
IF (NNID) 604, 604, 603 

603 NNUP = JMOD ( ISTEP-1 . NNID) 

604 IF (IPHASE) 996, 996, 605 

605 GO TO (608,608,608,996,608,606,608,996), IPHASE 

606 IF (CVTID) 608, 608, 607 

607 CVUP = JMOD (ISTEP-1, CVTID) 

608 T = T + TSTEP 

TABS = TABS + TSTEP 

TREL = TREL + TSTEP 

GO TO 200 

C 

C ***** Error Exit ***** 

C 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

C ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE(8, 1071) 

C 

q * * * * * EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE JNNW(M,ME,N,X, ACTIVE, F,G) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine computes the Performance Index PINOX and the 

constraints CON (III) for Neural -Net Optimisation /Update during 
both the Learning and Controlled Trajectory Phases. 


***** Start SUBROUTINE JNNW ***** 


***** The " (LEYIAND.OPTIMNNjTYPECOM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' l LEYLAND. OPTIMNN] TYPECOM. INC ' 


INTEGER* 4 I, IARG, J, JERR, L, M, ME, N, NIJKCV 

REAL* 8 F, G(NCON), SARG, X(NCV) , XDUM(NL2DIM) , YYA(NL2DIM) , 

1 YYN (NL2DIM) 

LOGICAL ACTIVE (NCON) 

EXTERNAL CWCTR, ECVCTR, STATE, STATENN 
REAL* 8 CWCTR, ECVCTR, STATE, STATENN 


FORMAT (2H0 ) 

FORMAT (2H1 } 

FORMAT(40H0 ***** NORMAL EXIT FROM JNNW *****//) 
FORMAT(39HO ***** ERROR EXIT FROM JNNW *****//) 
FORMAT { 4D20 . 7 ) 


r *** Initialisation ***** 

JERR = 0 

IF CIPHASE) 996, 996, 10 

GOTO (11,11,11,996,12,12,12,996), IPHASE 

ICVDEF = 2 

IECDEF = 1 

NIJKCV = NIJKCVL 

GO TO 13 

ICVDEF = 4 

IECDEF « 2 

NIJKCV = NIJKCVC 

DO 14 I JK=1, NIJKCV 

CV(IJK) = X(IJK) 

CONTINUE 


**** Unload the Control Vector CV(II) ***** 

CALL CWCTR (XDUM, JERR) 

IF (JERR .NE. 0) GO TO 996 

**** Determine State from Neural -Net Model 


SARG = ZERO 
DO 30 L=1,LMAX 

CALL STATENN (XD { 1, L) , YYN, JERR) 
IF (JERR .NE. 0) GO TO 996 
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DO 15 J=1,NL2(2) 

YYA(J) = YD( J, L) 

15 CONTINUE 

***** Load the End Conditions Vextor EC(JJ) ***** 

CALL ECVCTR (L, YYA, YYN, JERR) 

IF (JERR .NE. 0) GO TO 996 
SUMSQW(L) = SUMSQ 

GOTO (21,21,21,996,22,22,22,996) , IPHASE 

21 SARG = SARG + WTSNNL (L) *SUMSQW(L) 

GO TO 30 

22 SARG = SARG + WTSNNC (L) *SUMSQW(L) 

30 CONTINUE 

SUMSQ = SARG 

***** Define the Performance Index PINDX ***** 

PINDX = SUMSQ 
F = PINDX 
CON(l) = ZERO 
G (1 ) = CON ( 1 ) 

GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE ( 8 , 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE JCTRL (M, ME, N,X, ACTIVE, F,G) 


3 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This subroutine computes the Performance Index PINDX and the 
constraints CON(III) for Control Optimisation/Update during 
the Controlled Trajectory Phase. 


***** Start SUBROUTINE JCTRL ***** 


***** The " [LEYLAND. OPTIMNN] TYPECCM. INC* File is Included here. 

This file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE • [ LEYLAND . OPTIMNN] TYPECCM . INC ' 


INTEGER* 4 I, IARG, JERR, LDUM, M, ME, N 

REAL* 8 F, G(NCON) , X{NCV) , YDUM(NL2DIM) 

LOGICAL ACTIVE (NCCN) 

EXTERNAL CWCTR, ECVCTR, STATENN 
REAL*8 CWCTR, ECVCTR, STATENN 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (4 1H0 ***** NORMAL EXIT FROM JCTRL *****//) 

1072 FORMAT ( 4 OHO ***** ERROR EXIT FROM JCTRL *****//) 
FORMAT ( 4D2 0.7) 


***** Initialisation ***** 

JERR = 0 
ICVDEF = 6 
IECDEF = 3 
DO 10 11=1, NICV 
CV(II) = X(II) 

10 CONTINUE 

DO 11 1=1, NL2 (1) 

XN(I) = XD(I, 1 ) 

11 CONTINUE 

***** Unload the Control Vector CV(II) ***** 

CALL CWCTR (XN, JERR) 

IF (JERR .NE. 0) GO TO 996 

***** Determine State from Neural -Net Model ** 

CALL STATENN <XN,YN, JERR) 

IF (JERR .NE. 0) GO TO 996 

***** Load the End Conditions Vextor EC(JJ) ** 

CALL ECVCTR (LDUM, YDUM,YN, JERR) 

IF (JERR .NE. 0) GO TO 996 

***** Define the Performance Index PINDX ***** 
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PINDX = SUMSQ 
F = PINDX 
IF (NCONC) 997, 997, 100 

***** Compute Constraint Vector Function CON (III) ***** 

100 III = 0 
NCONC = 0 
DO 102 1=1, NL2 (1) 

IF (ICONC(I)) 102, 102, 101 

101 III = III + 1 
IARG = ICONC(I) 

CON (III) = SMAXC ( I ) *SMAXC ( I ) - XA(I)*XA(I) - XA(IARG) *XA(IARG) 

G(III) = CON (III) 

102 CONTINUE 
NCONC = III 
GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

C ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE CVVCTR (X, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


***** This subroutine either Loads the Control Vector FROM the 
Principal Parameters in the OFTIMNN System if ICVDEF - 1, 

3, or 5, or Unloads the Control Vector TO the appropriate 
Principal Parameters in the OPTIMNN System if ICVDEF = 2, 

4 , or 6 . 


***** Start SUBROUTINE CWCTR 


***** The " [ LEYLAND . OPTIMNN ] TYPECGM . INC " File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’[LEYLAND. OPTIMNN] TYPECGM. INC 1 


INTEGER *4 I, J, JERR, K, NIJKCV 
REAL*8 X(NL2DIM) 


L000 FORMAT ( 2H0 ) 
1001 FORMAT (2H1 ) 

1071 FORMAT ( 42H0 *’ 

1072 FORMAT < 4 1H0 *’ 

7011 FORMAT (4D20. 7} 


NORMAL EXIT FROM CVVCTR *****//> 
ERROR EXIT FROM CVVCTR *****//) 


***** Initialisation ***** 

JERR = 0 

GOTO (100,100,100,100,200,200,996), ICVDEF 

***** Load or Unload the Control Vector CV(IJK) during Neural -Net 
Opt imi sat ion /Update . 

100 IJK =0 
NIJKCV = 0 

DO 130 K = 1 ,NK 
DO 120 I = 1 ,NI (K) 

DO 110 J = 1,NJ(K) 

GOTO (101,101,102,102,996,996,996), ICVDEF 

101 IF ( I JKCVL { I , J , K ) ) 110,110,103 

102 IF ( I JKCVC ( I , J , K ) ) 110,110,103 

103 IJK = IJK + 1 

GOTO (104,105,104,105,996,996,996). ICVDEF 
***** Load the Control Vector CV(IJK) ***** 

104 CV(IJK) = CW(I,J,K) 

GO TO 110 

***** Unload the Control Vector CV(IJK) ***** 

105 CW(I , J, K) = CV(IJK) 

110 CONTINUE 

120 CONTINUE 
130 CONTINUE 

NIJKCV = IJK 
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GOTO (141,141,142,142,996,996,996), ICVDEF 

141 NIJKCVL = IJK 
GO TO 997 

142 NIJKCVC = IJK 
GO TO 997 

C 

C ***** Load or Unload the Control Vector CV(II) during Control 
C Optimisation/Update. 

C 

200 II =0 
NICV = 0 

DO 210 I = 1,NL2 (1) 

IF ( ICV(I) ) 210, 210, 201 

201 II = II + 1 

GOTO (996,996,996,996,202,203,996), ICVDEF 
***** Load the Control Vector CV(II) ***** 

202 CV(II) = X (I ) 

GO TO 210 

***** Unload the Control Vector CV(II) ***** 

203 X(I) = CV(II) 

210 CONTINUE 

NICV = II 
GO TO 997 

***** Error Exit ***** 

996 WRITE (6 , 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

C ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ECVCTR (L, YYA, YYN, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


***** This subroutine Loads the End Conditions Vector FROM the 
appropriate Principal Parameters in the OPTIMNN System 
ans Sums the Squares of selected End Conditions to define 
the Core of the Performance Index if IECDEF = 1, 2, or 3. 


***** Start SUBROUTINE ECVCTR ***** 


***** The • [LEYLAND. OPTIMNN] TYPECGM. INC" File is Included here. 

•mis file contains the statements which establish and define 
1) the Principal C0M4QN Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND. OPTIMNN] TYPECGM. INC' 


INTEGER* 4 J, JERR, L, NJJEC 
REAL*8 WT, YYA(NL2DIM), YYN(NL2DIM) 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT ( 42H0 ***** 

1072 FORMAT ( 4 1H0 ***** 

7011 FORMAT (4D20. 7) 


NORMAL EXIT FROM ECVCTR *****//) 
ERROR EXIT FROM ECVCTR *****//) 


***** Initialisation ***** 

JERR = 0 

GOTO (100,100,200,996), IECDEF 

***** Load the End Conditions Vector EC(JJJ) during Neural-Net 
Opt imi sat ion /Update . 

100 JJJ = 0 
NJJEC = 0 
SUMSQ = ZERO 
DO 110 J = 1 ,NL2 (2) 

GOTO (101,102,200,996), IECDEF 

101 WT = WINNL(J) 

IF (JJECL(J)) 110,110,103 

102 WT = V/TNNC { J> 

IF (JJECC(J)) 110,110,103 

103 JJJ = JJJ + 1 

***** Load the End Conditions Vector EC (JJJ) ***** 

EC (JJJ) = YYN ( J) - YYA(J) 

SUMSQ = SUMSQ + WT*EC ( JJJ) *EC( JJJ) 

110 CONTINUE 

GOTO (111,112,996,996), IECDEF 

111 NJJEC L = JJJ 
GO TO 997 

112 NJJECC = JJJ 
GO TO 997 

C ***** Load the End Conditions Vector EC(JJ) during Control 
C Opt imi sat ion /Update . 

C 
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200 JJ =0 
NJEC = 0 
SUM SQ = ZERO 
DO 210 J = 1 , NL2 ( 2 ) 

IF ( JEC ( J) ) 210, 210, 201 

201 JJ = JJ + 1 

***** Load the End Conditions Vector EC(JJ) ***** 

EC ( JJ) = YYN ( J) 

SUM SQ = SUMSQ + WTC ( J) *EC ( JJ) *EC ( JJ) 

210 CONTINUE 
NJEC = JJ 
GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE STATENN ( X , Y , JERR ) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Determines the State as a Function of the 
Control and the Neural -Net Parameters using the Neural -Net 
Model . 


***** start SUBROUTINE STATENN ***** 


***** The • [LEYLAND. OPTIMA] TYPECGM. INC" File is Included here* 
This file contains the statements which establish and define 
1) the Principal COMMON Blocks? 2} the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [ LEYLAND . OPTIMNN ] TYPECQM . INC ' 


INTEGER* 4 I, J, JERR, K 

REAL*8 X(NL2DIM) , Y (NL2DIM) 

EXTERNAL PFNCTOO , PFNCT01, PFNCTG2, PFNCT03 
REAL* 8 PFNCTOO, PFNCT01, PFNCT02, PFNCT03 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT { 4 3H0 ***** 

1072 FORMAT (42H0 ***** 

7011 FORMAT (4D20. 7) 


NORMAL EXIT FROM STATENN *****//) 
ERROR EXIT FROM STATENN *****//) 


***** Initialisation ***** 

JERR = 0 

***** Evaluate for Each Layer. 

DO 310 K=1,NK 

***** Determine the Origin Signals for Each Neural-Net Layer, 
Origin Position, and Destination Position. 

***** Evaluate for Each Origin Position. 

DO 120 1=1 ,NI (K) 

***** Evaluate for Each Destination Position. 

DO 110 J=1,NJ(K) 

C 

IF (K-l) 111,111,112 

111 XNN(I,J,K) = X(I) 

GO TO 110 

112 XNN (I , J, K) = YNN(I,K-1) 

C 

110 CONTINUE 
C 

120 CONTINUE 
C 

C ***** Determine the Destination Signals for Each Neural -Net Layer, 
C Origin Position, and Destination Position. 

C 
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***** Evaluate for Each Destination Position. 

DO 210 J=1,NJ(K) 

C 

UNN(J,K) = ZERO 
C 

C ***** Evaluate for Each Origin Position. 

C 

DO 220 1=1 ,NI (K) 

UNN ( J, K) = UNN ( J, K) + CW(I, J, K) *XNN(I, J, K) 

220 CONTINUE 
C 

c ***** input the Destination Signal to the Selected Neural -Net 
C Pass-Through Function (i.e., Neural -Net Node Filter). 

C 

GOTO (231,232,233,234), NFUNCT(J,K) +1 
C 

C ***** The No- Pass (i.e., the Constant Function) Neural -Net Node 
C Filter Function. 

C 

231 CALL PFNCT00 (J, K, JERR) 

IF (JERR) 996,210,996 

C 

C ***** The Direct-Pass (i.e., the Linear Function) Neural-Net Node 
C Filter Function. 

C 

232 CALL PFNCT01(J,K, JERR) 

IF (JERR) 996,210,996 

C 

C ***** The Hyperbolic Tangent (i.e., the Threshold Function) 

C Neural -Net Node Filter Function. 

C 

233 CALL PFNCT02 ( J, K, JERR) 

IF (JERR) 996,210,996 

C 

C ***** The Fi rs t Derivative of the Hyperbolic Tangent (i.e., the 

C Pulse Function) Neural-Net Node Filter Function. 

C 

234 CALL PFNCT03 ( J, K, JERR) 

IF (JERR) 996,210,996 

C 

210 CONTINUE 
C 

310 CONTINUE 
C 

C ***** Determine the Neural-Net Model Output Vector 
C 

DO 410 J=1,NJ(NK) 

Y ( J) = YNN (J,NK) 

410 CONTINUE 
C 

GO TO 997 
C 

c ***** Error Exit ***** 

C 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

c ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE PFNCTOO (J,K, JERR) 

C 

C 

c ***** This subroutine Defines the No-Pass (i.e., the Constant 
C Function) Neural -Net Pass-Through Function (i.e.. Node 

C Filter) . 

C 

C 

c ***** start SUBROUTINE PFNCTOO ***** 

C 

C 

C 

c ***** 'Hie - [LEYIAND.OPTIMNN] TYPECOM. INC" File is Included here. 

C This file contains the statements which establish and define: 

C 1) the Principal COMMON Blocks; 2) the Data TYPE of the 

C Principal Parameters, Arrays, and Vectors; and 3) the 

C DIMENSION of the Principal Arrays and Vectors of the 

C OPTIMNN System. 

C 

INCLUE® * [LEYLAND. OPTIMNN] TYPECOM. INC’ 

C 

C 

C 

INTEGER* 4 J, JERR, K 
C 
C 

1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT ( 4 3H0 ***** NORMAL EXIT FROM PFNCTOO *****//) 

1072 FORMAT (42H0 ***** ERROR EXIT FROM PFNCTOO *****//) 

7011 FORMAT (4D20. 7) 

C 

C 

C ***** Initialisation ***** 

C 

JERR = 0 
C 

C ***** Evaluate the Destination Signal to the J-th Destination 
C Position of the K-th Neural -Net Layer. 

C 

YNN(J,K) = YN0 ( J, K) + CN(J,K) 

C 

IF (JERR) 996,997,996 
C 

c ***** Error Exit ***** 

C 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

C ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT * * * * * 

C 

999 RETURN 
END 
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SUBROUTINE PFNCT01 (J , K, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 


***** This subroutine Defines the Direct-Pass (i.e., the Linear 

Function) Neural -Net Pass-Through Function (i.e., Node Filter). 


***** start SUBROUTINE PBNCT01 ***** 


***** ^ « [LEYIJlt©. OPTIMNN] TYPECCM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal CCMCN Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’ [LEYLAND. OPTIMNN] TYPECCM. INC ' 


INTBGERM J, JERR, K 

REAL* 8 AA, ARG, BB, CC, DD, TWOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT <2H1 ) 

1071 FORMAT ( 4 3H0 ***** NORMAL EXIT FROM PFNCT01 *****//) 

1072 FORMAT ( 42H0 ***** ERROR EXIT FROM PFNCT01 *****//) 

7011 FORMAT (4D20. 7) 


***** initialisation ***** 

JERR = 0 

***** select Method of Defining Model Constants. 
DD = EN(J,K) 

IF (DD+TENP6-TENM2) 100,200,200 

***** input Model Constants Directly. ***** 

100 AA = AN ( J, K) 

CC = CN(J,K) 

GO TO 202 


Define Model Constants from Geometrical Considerations. 


**** * 


200 ARG = CN(J,K) - AN(J.K) 

IF (DABS (ARG) -T1NM6) 996.201,201 

201 AA = (DN(J,K) - BN(J,K) ) /ARG 

CC = DN(J,K) - YNO(J.K) - AAMCN(J.K) - XNO(J.K)) 

..... Evaluate the Destination Signal to the J-th Destination 
Position of the K-th Neural-Net Layer. 

202 YNN(J.K) = YNO(J.K) + AA* (UNN(J.K) - XNO(J.K)) + CC 


GO TO 997 


..... Error Exit 

996 WRITE (6, 1072) 
WRITE (8, 1072) 

GO TO 999 
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***** Normal Exit ***** 

997 CONTINUE 
C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

(2 ***** exit ***** 

c 

999 RETURN 
END 

C234 567 8901234567890123456789012345678901234567890123456789012345678901234567890 
C234 567 8901234 567 8901234 567890 12345678901234 5678901234 5 6789012 34567890 12 34 567 890 
C2 345 67 8901234 5678901234 567890 1234 56789012345678901234 5678901234567890 12 34 567 890 


Appendix C: PFNCT01 .FOR - 2 


on non non non non non noon non non 


SUBROUTINE PFNCT02 (J,K, JERR) 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the Hyperbolic Tangent { i .e. , the 
Threshold Function) Neural -Net Pass-Through Function (i.e.. 
Node Filter) . 


***** Start SUBROUTINE PFNCT02 ***** 


***** 7he • [LEYLAND. OPTIMNN] TYPECQM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE * [LEYLAND. OPTIMNN] TYPECCM. INC' 


INTEGER* 4 J, JERR, K 
REAL *8 AA, ARG, PT990 


1000 FORMAT (2H0 ) 

1001 FORMAT <2H1 ) 

1071 FORMAT (43H0 ***** NORMAL EXIT FROM PFNCT02 *****//) 

1072 FORMAT (42H0 ***** ERROR EXIT FROM PFNCT02 *****//) 

FORMAT (4D20. 7) 


***** 


Initialisation 


***** 


JERR = 0 


***** select Method of Defining Model Constants. 

IF (BN{J, K) -TENM2 ) 100,200,200 

***** input Model Constants Directly. ***** 

100 AA = AN ( J, K) 

GO TO 204 


Define Model Constants from Geometrical Considerations. 


*** ** 


200 IF (AN(J,K) -TENM2) 996,201,201 

201 PT990 = ONE - TENM2 

IF (PT990-AN ( J, K) ) 996,202,202 

202 IF (BN(J, K) -TENM2) 996,203,203 

203 ARG = (ONE + AN(J,K) ) / (ONE - AN(J,K)) 

AA = (PT500/BN ( J, K) ) *DLOG(ARG) 

***** Function Evaluation ***** 

204 YNN { J, K) = YN0 ( J, K) + CN(J,K) *E7TANH{AA* (UNN(J,K) -XN0(J,K) ) ) 
GO TO 997 

***** Error Exit ***** 


996 WRITE (6, 1072) 
WRITE (8, 1072) 
GO TO 999 


***** Normal Exit ***** 
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c 

997 CONTINUE 
C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE PFNCT03 (J,K, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


***** This subroutine Defines the First Derivative of the Hyperbolic 
Tangent (i.e., the Pulse Function) Neural -Net Pass-Through 
Function {i.e., Node Filter). 


***** Start SUBROUTINE PFNCT03 ***** 


***** The - [ LEYLAND . OPTIMNN ] TYPECQM . INC " File is Included here. 

This file contains the statements which establish and define: 
1) the Principal CCM40N Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND. OPTIMNN] TYPBCCM. INC ' 


INTEGER* 4 J, JERR, K 
REAL* 8 AA, ARG, PT990 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT ( 4 3H0 ***** NORMAL EXIT FROM PFNCT03 *****//) 

FORMAT ( 42H0 ***** ERROR EXIT FROM PFNCT03 *****//) 

FORMAT (4D20. 7) 


***** initialisation ***** 

JERR = 0 

***** select Method of Defining Model Constants. ***** 

IF {BN { J, K) ) 100,100,200 

***** input Model Constants Directly. ***** 

100 AA = AN { J, K) 

GO TO 204 

***** Define Model Constants from Geometrical Considerations . 


200 IF (AN(J,K)-TENM2) 996,201,201 

201 PT990 = ONE - TENM2 

IF (PT990-AN( J, K) ) 996,202,202 

202 IF (BN(J,K) -TENM2) 996,203,203 

203 ARG = TOO/DSQRT(AN(J,K) ) - ONE 
AA = (PT500/BN (J, K) ) *DL0G(ARG) 

***** Function Evaluation ***** 

204 ARG = QNE/DCOSH (AA* (UNN ( J , K) -XN0 { J , K) ) ) 
YNN ( J, K) = YN0 ( J, K) + AA*CN ( J, K) *ARG*ARG 
GO TO 997 


Error Exit 


996 WRITE {6 , 1072 ) 
WRITE (8, 1072) 
GO TO 999 
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c ***** Normal Exit ***** 

C 

997 CONTINUE 
C WRITEI6, 1071) 

C WRITE(8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 

C234 5 678901234 5678901234 56789012345678901234 567 8901234567 8901234 5678901234567890 
C2345678901234 567 8901234 567 8901234 5678901234 567 8901234 5678901234 5678901234 567890 
C234567890 1234 5678901234 567 8901234 5678901234 567 8901234 56789012 34 5678901234567890 


Appendix C: PFNCT03.FOR - 2 


ooo oooo no o non 


SUBROUTINE STATE <X, Y, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Determines the "Actual" (i.e., Reference) 
Plane Model (i.e.. Definition of the Control and State as 
a Function of Time) . 


***** Start SUBROUTINE STATE ***** 


***** The " [LEYLAND. OPTIMNN) TYPECCM. INC" File is Included here. 

'This file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE • [LEYLAND. OPTIMNN] TYPECOM. INC* 


INTEGER *4 I, J, JERR, K 
REAL* 8 X(NL2DIM), Y (NL2DIM) 


1000 FORMAT (2H0 ) 

1001 FORMAT ( 2H1 ) 

1071 FORMAT ( 4 1H0 ***** 

1072 FORMAT (4 OHO ***** 
7011 FORMAT (4D20. 7) 


NORMAL EXIT FROM STATE *****//) 
ERROR EXIT FROM STATE *****//) 


Initialisation 


JERR = 0 

***** Select Source for Control /State Definition. 


IF (IPHASE) 996,996,100 

100 GO TO (101,101,101,996,102,102,102,996), IPHASE 

101 GO TO (111,112,113,114), STMODL 

102 GO TO (111,112,113,114), STMODC 
C 

c ***** Synthesis the "Actual* (i.e.. Reference) Plant Model by 

C Combining Selected Individual Analytic Models. 

C 

111 CALL ASTATE(X,Y, JERR) 

IF (JERR) 996,997,996 

C 

C ***** Defines the "Actual* (i.e.. Reference) Plant Model from 

C On-Line Test Data. 

C 

112 CALL DSTATE(X.Y, JERR) 

IF (JERR) 996,997,996 

C 

C ***** Defines the "Actual" (i.e.. Reference) Plant Model from 

C Stored Data Tables 

C 


113 CALL TSTATE (X, Y, JERR) 

IF (JERR) 996,997,996 
C 

C ***** Defines the "Actual" (i.e.. Reference) Plant Model from 
C a User Supplied Model. 

C 


114 CALL USTATE(X,Y, JERR) 
IF (JERR) 996,997,996 
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C 

GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE{8, 1071) 

C 

£ ***** EXIT ***** 

C 

999 RETURN 
END 

C2345678901234567890123456789012345678901234567890123456789012345678901234567890 
C23456789012345678901234 567 8901234567 89 0123456789012345678901234567 890 12 34567890 
C234 5678901234567890123456789012345678901234567890123456789012345678901234567890 


Appendix C: STATE. FOR - 2 


noooon onoooooooo on ooooo 


SUBROUTINE ASTATE (X, Y, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


***** This subroutine Synthesises (i.e., Defines) the "ACTUAL" 

(i.e., the Reference) Plant Model including both Input and 
Output Signals by Combining Selected Individual Analytic 
Models (i.e., ASTATE01, ASTATE02 , ASTATE03 , *, *, *, *) 


***** Start SUBROUTINE ASTATE ***** 


***** Tlie MLE^OAND.OPTIMNNITYPEXXM.INC- File is Included here. 

This file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [ LEYLAND. OPTIMNN) TYPECOM. INC' 


INTEGER* 4 IARG, JERR, LI, L2, L3 


REAL* 8 ARG, X(NL2DIM) , Y (NL2DIM) , YY 


EXTERNAL ASTATE01, 
1 ASTATE06, ASTATE07 , 
REAL* 8 ASTATE01, 

1 ASTATE06, ASTATE07 , 


ASTATE02 , 
ASTATRAN 
ASTATE02 , 
ASTATRAN 


ASTATE03, 
ASTATE03 , 


ASTATE04, 

ASTATE04, 


ASTATE05, 

ASTATE05, 


L000 FORMAT (2H0 ) 

L001 FORMAT (2H1 ) 

1071 FORMAT (42H0 ***** 

1072 FORMAT ( 4 1H0 ***** 

7011 FORMAT ( 4D20 . 7 ) 


NORMAL EXIT FROM ASTATE *****//) 
ERROR EXIT FROM ASTATE *****//) 


***** Initialisation ***** 

JERR = 0 

***** Evaluate for Both the Plant Input and Plant Output Vectors 
DO 310 Ll=l, 2 

***** Evaluate for Each Vector Elenent ***** 

IF (Ll-2) 373, 371, 996 

371 IF (NNID) 372, 372, 373 

372 CALL STATENN(X,Y, JERR) 

IF (JERR .NE. 0) GO TO 996 
GO TO 310 

373 DO 210 L2=l ,NL2 (LI ) 

ARG = ZERO 

IF (NL3 (L2, Ll) ) 200,200,180 

***** Evaluate Each Individual Primary Analytic Model ***** 

180 DO 190 L3=l ,NL3 (L2 , Ll ) 

***** Select the Primary Analytic Model ***** 

IARG = IFUNCT(L3,L2,L1) + 1 

GOTO (100,101,102,103,104,105,106,107,996), IARG 
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***** Th e Random Uniform Distribution Function ***** 

100 CALL ASTATRAN (L3 , L2 , LI , 1 , YY , JERR) 

IF (JERR) 996,150,996 

***** The Linear Function (i.e., the Ramp Function) ***** 

101 CALL ASTATE01 (L3 , L2 , LI , YY, JERR) 

IF (JERR) 996.150,996 

***** The Serpentine Curve Function ***** 

102 CALL ASTATE02 (L3 , L2 , LI , YY, JERR) 

IF (JERR) 996,150,996 

***** T he witch of Agnesi Function ***** 

103 CALL ASTATE03 (L3 , L2 , LI , YY , JERR) 

IF (JERR) 996,150,996 

***** The Inverted Witch of Agnesi Function ***** 

104 CALL ASTATE04 (L3 , L2, LI, YY, JERR) 

IF (JERR) 996,150,996 

***** The Evneloped Sinusoidal Function ***** 

105 CALL ASTATE05 (L3 ,L2, LI , YY, JERR) 

IF (JERR) 996,150,996 

***** The Hyperbolic Tangent Function (i.e., the Threshold Function) 

106 CALL ASTATE06 ( L3 , L2 , LI , YY , JERR) 

IF (JERR) 996,150,996 

***** T h e First Derivative of the Hyperbolic Tangent Function (i.e., 
the Pulse Function) 


107 CALL ASTATE07 ( L3 , L2 , LI , YY , JERR) 

IF (JERR) 996,150,996 

***** Randomise the Primary Analytic Function Just Evaluated ***** 

150 IF (DABS (A2 (L3 , L2 , LI) ) -TENM8) 151,151,154 

151 IF(DABS(B2(L3,L2,L1) I-TENM8) 152,152,154 

152 IF(DABS (C2 (L3 , L2 , LI ) ) -TENM8 ) 153,153,154 

153 IF (DABS (D2 (L3 , L2 , LI ) ) -TENM8) 155,155,154 

154 CALL ASTATRAN (L3,L2, LI, 2, YY, JERR) 

IF (JERR) 996,155,996 

***** Sum the Primary Analytic Functions Evaluated To-Date ***** 

155 ARG = ARG + YY 
C 

190 CONTINUE 
C 

C ***** Randomise the Combined Primary Analytic Models to Yield the 
C Final Result. 

C 

200 IF (DABS (A3 (L2, LI ) ) -TENM8) 201,201,204 

201 IF (DABS (B3 (L2 , LI) ) -TENM8) 202,202,204 

202 IF (DABS (C3 (L2 , LI ) ) -TENM8) 203,203,204 

203 IF ( DABS ( D3 ( L2 , LI ) ) -TENM8 ) 205,205,204 

204 CALL ASTATRAN (L3.L2, LI, 3, ARG, JERR) 

IF (JERR) 996,205,996 

205 GO TO (206,207) , LI 

206 X(L2) = ARG 
GO TO 210 

207 Y(L2) = ARG 
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C 

210 CONTINUE 
C 

310 CONTINUE 
C 

GO TO 997 

***** Error Exit ***** 

996 WRITE {6 , 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE(6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ASTATRAN (L3 , L2 , LI , LCALL, YY, JERR) 


This subroutine Defines the Uniform Distribution Function 
which is One of the Individual Analytic Models available 
to be used in the Synthesis (i.e., the Definition) of the 
•ACTUAL" (i.e., the Reference) Plant Model including both 
Input and Output Signals. 


Start SUBROUTINE ASTATRAN ***** 


The " [ LEYLAND . OPTIMNN ] TYPECCM . INC " File is Included here. 
This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 


INCLUDE ' [ LEYLAND . OPTIMNN 3 TYPECCM . INC ' 


INTEGER* 4 ISEED, JERR, JSEED, LI, L2, L3, LCALL 
REAL* 8 AA, ARG1 , ARG2 , BB, CC, DD, YR, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT ( 2H1 ) 

1071 FORMAT { 44H0 *’ 

1072 FORMAT (43H0 
7011 FORMAT {4D20. 7) 


NORMAL EXIT FROM ASTATRAN 
ERROR EXIT FROM ASTATRAN 


*****//) 

*****//) 


**** Initialisation ***** 

JERR = 0 

GOTO (10,20,30,996), LCALL 

**** The Randan Uniform Distribution Function 


10 ISEED 
JSEED 
AA 
BB 
CC 
DD 
YR 

GO TO 
20 ISEED 
JSEED 
AA 


DD 

YR 

GO TO 
30 ISEED 
JSEED 
AA 


= ISEEDl (L3 , L2 , LI ) 
= JSEED1 (L3 , L2 , Ll ) 
= A1(L3,L2,L1) 

= B1(L3,L2,L1) 

= Cl { L3 , L2 , Ll ) 

= D1(L3,L2,L1) 

= YR1(L3,L2,L1) 

103 

= ISEED2 (L3 , L2 , Ll ) 
= JSEED2 (13 , L2 , Ll ) 
= A2 (L3 , L2 , Ll) 

= B2(L3,L2,L1) 

= C2(L3,L2,L1) 

= D2(L3,L2,L1) 

= YR2 (L3 , L2 , Ll ) 

100 

= ISEED3 ( L2 , Ll ) 

= JSEED3 (L2 , Ll ) 

= A3 (L2 , Ll ) 

= B3(L2,L1) 

= C3(L2,L1) 

= D3 (L2 , Ll ) 

= YR3 ( L2 , Ll ) 


Determine ARG2 ***** 
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c 

100 IF (TENM6-DABS (YY) ) 103,101,101 

101 IF (TENM6-DABS(DD) ) 104,102,102 

102 IF (JSEED) 104,104,105 

103 ARG1 = ZERO 
GO TO 200 

104 ARG2 = CC 
GO TO 200 

105 ARG2 = CC + DD* (TWO*RAN( JSEED) - ONE) *YY 
***** Determine ARG1 ***** 

200 IF (TENM6-DABS(BB) ) 202,201,201 

201 IF (ISEED) 202,202,203 

202 ARG1 = AA 
GO TO 300 

203 ARG1 -= AA + BB* (TWO* RAN (ISEED) - ONE) 

***** Determine YY ***** 

300 YY = YR + ARG1 + ARG2 
GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE(6, 1071) 

C WRITE (8, 1071) 

C 

C ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ASTATE01 <L3,L2,Ll, YY, JERR) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This subroutine Defines the Linear i.e., the Ramp Function) 
Function which is One of the Individual Analytic Models 
available to be used in the Synthesis (i.e., the Definition) 
of the "ACTUAL" (i.e., the Reference) Plant Model including 
both Input and Output Signals. 


***** Start SUBROUTINE ASTATE01 ***** 


***** The " I LEYLAND . OPTIMNN ] TYPECCM . INC " File is Included here. 

This file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND. OPTIMNN] TYPECCM. INC’ 


INTEGER* 4 JERR, Ll, L2, L3 

REAL *8 AA, ARG, BB, CC, DD, TMOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT { 2H1 ) 

L071 FORMAT (44H0 ***** 

1072 FORMAT ( 4 3H0 ***** 

7011 FORMAT (4D20. 7) 


NORMAL EXIT FROM ASTATE01 *****//) 
ERROR EXIT FROM ASTATE01 *****//) 


Initialisation ***** 


JERR = 0 

ARG = T - X0(L3,L2,L1) - PHASE ( L3 , L2,L1) 

IF ( PERIOD (L3,L2,L1)-TENM6> 996,996,11 

11 IF ( PERIOD (L3,L2,L1)-TENP6> 13,12,12 

12 TMOD = ARG 
GO TO 14 

13 TMOD = EMOD ( ARG, PERIOD { L3 , L2 , Ll ) ) 

***** Select Method of Defining Model Constants. ***** 

14 DD = D(L3,L2,L1) 

IF (DD+TENP6-TENM2) 100,200,200 

***** input Model Constants Directly. ***** 

100 AA = A(L3,L2,L1) 

CC = C(L3,L2,L1) 

GO TO 202 

***** Define Model Constants from the Co-ordinates of Two Points. 

200 ARG = C(L3,L2,L1) - A(L3,L2,Ll) 

IF (DABS (ARG) -TENM6) 996,201,201 

201 AA = (D(L3, L2, Ll) - B(L3,L2,L1) ) /ARG 

CC = D { L3 , L2 , Ll ) - Y0 (L3 , L2 , Ll ) - AA* (C (L3 , L2 , Ll ) - X0 (L3 , L2 , Ll ) ) 

***** Function Evaluation ***** 

202 YY = Y0(L3,L2,L1) + AA* (TMOD - X0 (L3,L2,L1) ) + CC 
GO TO 997 
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***** Error Exit ***** 

996 WRITE <6 , 1072 ) 

WRITE {8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ASTATE02 (L3 , L2 , LI , YY , JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


This subroutine Defines the Serpentine Curve Function which 
is One of the Individual Analytic Models available to be used 
in the Synthesis (i.e., the Definition) of the "ACTUAL" (i.e., 
the Reference) Plant Model including both Input and Output 
Signals . 


***** Start SUBROUTINE ASTATE02 ***** 


***** The " [I^YIJ^.OPTIMNN]TYPECCM.INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE * [ LEYLAND. OPTIMNN ]TYPECOM. INC ’ 


INTEGER* 4 JERR, LI, L2, L3 
REAL *8 AA, ARG, BB, 1M0D, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (44H0 ***** NORMAL EXIT FROM ASTATE02 *****//) 

1072 FORMAT (4 3H0 ***** ERROR EXIT FROM ASTATE02 *****//) 

7011 FORMAT (4D20. 7) 


***** Initialisation ***** 

JERR = 0 

ARG = T - X0(L3,L2,L1) - PHASE (L3,L2, LI) 

IF ( PERIOD ( L3 , L2 , LI ) -TENM6 ) $96,996,11 

11 IF ( PERIOD (L3 , L2 , LI ) -TENP6 ) 13,12,12 

12 TWOD = ARG 
GO TO 14 

13 TMOD = EMOD(ARG, PERIOD (L3,L2, LI ) > 

14 IF (DABS (A(L3, L2,Ll) ) -TENM6) 996,996,15 

15 IF (DABS (B(L3, L2,L1) ) -T0JM6) 996,996,100 

***** Input Model Constants Directly. ***** 

100 AA = A(L3,L2,L1) 

BB = B(L3,L2,L1) 

***** Function Evaluation ***** 

YY = Y0(L3,L2,L1) + AA*BB*TMOD/ (AA*AA + TMOD*TMOD) 
GO TO 997 


***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 
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C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ASTATE03 (L3 , L2 , Ll , YY , JERR) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the Witch of Agnesi Function which 

is One of the Individual Analytic Models available to be used 
in the Synthesis (i.e., the Definition) of the "ACTUAL* (i.e., 
the Reference) Plant Model including both Input and Output 
Signals . 


***** Start SUBROUTINE ASTATE03 ***** 


***** The • [LEYLAND.OPTIMNNJTYPECCM. INC" File is Included here. 

Ibis file contains the statements which establish and define; 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters , Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’ [LEYLAND. OPTIMNN] TYPECCM. INC' 


INTEGER* 4 JERR, LI, L2, L3 

REAL *8 AA, ARG, BB, CC, PT990, TMOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (44H0 ***** 

1072 FORMAT ( 4 3H0 ***** 

7011 FORMAT (4D20. 7) 


NORMAL EXIT FROM ASTATE03 *****//) 
ERROR EXIT FROM ASTATE03 *****//) 


***** initialisation ***** 

JERR = 0 

ARG = T - X0(L3,L2,L1) - PHASE (L3,L2,L1) 

IF (PERIOD (L3 ,L2 , Ll) -TENM6) 996,996,11 

11 IF ( PERIOD (L3 , L2 , Ll ) -TENP6 ) 13,12,12 

12 IMOD * ARG 
GO TO 14 

13 TMOD = DMOD (ARG, PERIOD (L3,L2,L1) ) 

***** Select Method of Defining Model Constants. ***** 

14 AA = A(L3 , L2 , Ll) 

CC = C (L3 ,L2 ,L1) 

IF (CC-TENM2) 100,100,200 

***** Input Model Constants Directly. ***** 

100 BB = B(L3,L2,L1) 

GO TO 202 

***** Define Model Constants from Geometrical Considerations. 


200 PT990 = ONE - TETO12 

IF (PT990-CC) 996,201,201 

201 BB = DSQRT( (ONE - CC) /CC) 

***** Function Evaluation 


202 YY = Y0(L3,L2,L1) + AA*AA*AA/ (BB*BB*IMOD*TMOD + AA*AA) 
GO TO 997 
C 
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***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE(6, 1071) 

C WRITE(8, 1071) 

C 

Q E2CIT ***** 

c 

999 RETURN 
END 

C2345678901234 5678901234567 890123456789012345678901234567 8901234 567 8901234567 890 
C23456789012345678901234 56789012345678901234567890123456789012345678901234567890 
C234 567890123456789012345678901234 5678901234 567 89012345678901234567 8901234567 890 


Appendix C: ASTATE03.FOR - 2 


non non non non nnnn nnnnnn 


SUBROOTINE ASTATE04 (L3 , L2 , Ll, YY, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


***** This subroutine Defines the Inverted Witch of Agnesi Function 
which is One of the Individual Analytic Models available to be 
used in the Synthesis (i.e., the Definition) of the "ACTUAL" 
(i.e., the Reference) Plant Model including both Input and 
Output Signals. 


***** Start SUBROUTINE ASTATE04 ***** 


***** The " [LEYIAND.OPTIMNNlTYPEXXM. INC* File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters. Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE * tLEYLAND. OPTIMNN] TYPECOM. INC’ 


INTEGER*4 JERR, Ll, L2, L3 

REAL* 8 AA, ARG, BB, CC, PT990, TMOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (44H0 ***** NORMAL EXIT FROM ASTATE04 *****//) 

1072 FORMAT (43H0 ***** ERROR EXIT FROM ASTATE04 *****//) 

7011 FORMAT ( 4D20 . 7 ) 


***** Initialisation ***** 

JERR = 0 

ARG = T - X0 { L3 , L2 , Ll ) - PHASE <L3,L2,L1) 

IF ( PERIOD (L3,L2,L1)-TENM6) 996,996,11 

11 IF ( PERIOD ( L3 , L2 , Ll ) -TENP6 ) 13,12,12 

12 TMOD = ARG 
GO TO 14 

13 TMOD = EMOD (ARG, PERIOD (L3 , L2 , Ll ) ) 

***** Select Method of Defining Model Constants. ***** 

14 AA = A(L3,L2,L1) 

CC = C(L3,L2,L1) 

IF (CC-TENM2) 100,100,200 

***** Input Model Constants Directly. ***** 

100 BB = B(L3,L2,L1) 

GO TO 202 

***** Define Model Constants from Geometrical Considerations. 

200 PT990 = ONE - TENM2 

IF {PT990-CC) 996,201,201 

201 BB = DSQRT ( CC / ( ONE - CC) ) 

***** Function Evaluation ***** 


202 YY = Y0(L3,L2,L1) + AA*(ONE - AA*AA/ (BB*BB* TMOD* TMOD + AA*AA) ) 
GO TO 997 
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***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

c ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8 , 1071 ) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE ASTATE05 (L3,L2,L1,YY, JERR) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


This subroutine Defines the Enveloped Sinusoidal Function which 
is One of the Individual Analytic Models available to be used 
in the Synthesis (i.e., the Definition) of the 'ACTUAL" (i.e., 
the Reference) Plant Model including both Input and Output 
Signals. 


***** Start SUBROUTINE ASTATE05 ***** 


***** The " (IJiJYLAND. OPTIMNN ]TYPECCM. INC’ File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’ [ LEYLAND . OPTIMNN ] TYPECQM . INC ' 


INTEGER* 4 JERR, LI, L2, L3 

REAL* 8 AA, ALP, ARG, ARG1, ARG2, BB, CC, NW, TCOS, TEXP, TOOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (44H0 ***** NORMAL EXIT FROM ASTATE05 *****//) 

1072 FORMAT (4 3H0 ***** ERROR EXIT FROM ASTATE05 *****//) 

FORMAT (4D20. 7) 


Initialisation ***** 


JERR — 0 

ARG = T - X0(L3,L2,L1) - PHASE (L3,L2, LI) 

IF ( PERIOD (L3,L2, LI )-TENM6) 996,996,11 

11 IF ( PERIOD (L3,L2, LI )-TENP6) 13,12,12 

12 TMOD = ARG 
GO TO 100 

13 TMOD = DMOD (ARG , PERIOD (L3 , L2 , Ll ) ) 

***** Evaluation of the Exponential Part (i.e., ARG1) of the 
Enveloped Sinusoidal Function. 

100 TEXP = TMOD - PSI (L3 , L2 , Ll ) 

AA = A (L3 , L2 , Ll ) 

BB = B(L3,L2,L1) 

CC = C (L3 , L2 , Ll) 

IF (DABS (AA) -TENM6) 101,101,110 

***** Input Model Constants (i.e., ALPHA ( L3 , L2 , Ll ) ) Directly. ***** 

101 ALP = ALPHA ( L3 , L2 , Ll ) 

GO TO 113 

***** Define Model Constants from Geometrical Considerations. ***** 

110 IF (DABS (BB) -TENM6) 996,996,111 

111 IF (DABS (CC) -TENM6) 996,996,112 

112 ARG = DABS (BB/CC) 

ALP = (DLOG(ARG) )/AA 

113 IF (DABS (ALP) -TENM6) 115,115,114 

114 ARG1 = CC*DEXP (ALP* TEXP) 
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GO TO 200 
115 ARG1 = CC 


***** Evaluation of the Sinusoidal Part (i.e., ARG2 ) of the 
Enveloped Sinusoidal Function. 

200 TCOS = TWOD - PHI (L3 , L2 , Ll) 

IF (NN(L3,L2,L1)-TENP8) 201,203,203 

***** input the Harmonic Number [NN(L3, L2,L1) ] and Two-Pi times the 
Primary Frequency [OMEGA (L3 , L2 , LI) ] Directly. 

201 NW = NN(L3,L2,L1)*0MEGA(L3,L2,L1) 

IF (NW-TENM8) 205,205,202 

202 IF (NW-TENP8) 207,205,205 

***** input Sinusoidal Period [OMEGA < L3 , L2 , Ll) ] Directly. ***** 

203 IF ( OMEGA ( L3 , L2 , Ll ) -TENP8 ) 204,205,205 

204 IF ( OMEGA (L3 , L2 , Ll) -TENM8) 996,996,206 

205 ARG2 = ONE 
GO TO 300 

206 NW = TWOPI /OMEGA (L3,L2,L1) 

***** Evaluation of the Sinusoidal Part (i.e., ARG2 ) of the 
Enveloped Sinusoidal Function. 

207 ARG2 = DCOS (NW*TCOS ) 

***** Function Evaluation ***** 

300 YY = Y0(L3,L2,L1) + ARG1*ARG2 
GO TO 997 

***** Error Exit ***** 

996 WRITE(6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE(6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 

C234 5678901234567890123456789012345678901234567890123456789012345678901234567890 
C2 345678901234567 8901234 567 890 1234 5678901234 56789012345678901234 567 8 9012 34567890 
C234567 89012345678901234 56789012 3456789012345 67 8901234 5678901234 5678901234567 890 


Appendix C: ASTATE05.FOR - 2 


non non onoonn noon oooooo 


SUBROUTINE ASTATE06 (L3 , L2, Ll , YY, JERR) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the Hyperbolic Tangent (i.e., the 

Threshold Function) Function which is One of the Individual 
Analytic Models available to be used in the Synthesis (i.e., 
the Definition) of the "ACTUAL" (i.e., the Reference) Plant 
Model including both Input and Output Signals. 


***** Start SUBROUTINE ASTATE06 ***** 


***** Th e - [LEYIJ^.OPTIMNN]TYPECCM.INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE 1 ILEYLAND. OPTIMNN] TYPECOM.INC* 


INTEGER* 4 JERR, Ll, L2, L3 
REAL* 8 AA, ARG, PT990, TMOD, YY 


1000 FORMAT (2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (44H0 ***** NORMAL EXIT FROM ASTATE06 *****//) 

1072 FORMAT ( 4 3H0 ***** ERROR EXIT FROM ASTATE06 *****//) 

FORMAT (4D20. 7) 


***** Initialisation ***** 

JERR = 0 

ARG = T - X0(L3,L2,L1) - PHASE ( L3 , L2 , Ll ) 
IF ( PERIOD (L3 , L2 , Ll ) -TENM6 ) 996 , 996 , 11 

11 IF { PERIOD { L3 , L2 , Ll ) -TENP6 ) 13,12,12 

12 TMOD = ARG 
GO TO 14 

13 TMOD = DMOD (ARG, PERIOD (L3,L2,L1)) 


***** Select Method of Defining Model Constants. 

14 IF (B(L3,L2,L1)-TENM2) 100,200,200 

***** Input Model Constants Directly. ***** 

100 AA = A(L3,L2,L1) 

GO TO 204 


Define Model Constants from Geometrical Considerations . 


***** 


200 IF (A(L3,L2,L1)-TENM2) 996.201,201 

201 PT990 = ONE - TENM2 

IF (PT990-A(L3,L2,L1) ) 996,202,202 

202 IF (B(L3,L2,L1)-TENM2> 996,203,203 

203 ARG = (ONE + A (L3 , L2 , Ll ) ) / (ONE - A(L3. L2 , Ll ) ) 
AA = (PT500/B (L3 , L2 , Ll ) ) *DLOG (ARG) 

..... Function Evaluation ..... 

204 YY = Y0 (L3 , L2, Ll) + C (L3, L2,L1) *DTANH(AA*TOOD) 
GO TO 997 
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***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
END 
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non non nnnnnn nnnn nnnnnn 


SUBROUTINE ASTATE07 (L3 , L2 , LI , YY, JERR) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the First Derivative of the Hyperbolic 
Tangent (i.e., the Pulse Function) Function which is One of 
the Individual Analytic Models available to be used in the 
Synthesis {i.e., the Definition) of the "ACTUAL" (i.e., the 
Reference) Plant Model including both Input and Output Signals 


***** Start SUBROUTINE ASTATE07 ***** 


***** The " [ LEYLAND . OPTIMNN ] TYPECOM . INC " File is Included here. 

Ibis file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [LEYLAND. OPTIMNN] TYPECOM. INC' 


INTEGER* 4 JERR, LI, L2, L3 
REAL* 8 AA, ARG, PT990, TMOD, YY 


1000 FORMAT (2H0 ) 

L001 FORMAT (2H1 ) 

L071 FORMAT (44H0 ***** 

L072 FORMAT ( 4 3H0 ***** 

7011 FORMAT (4D20- 7) 


NORMAL EXIT FROM ASTATE07 *****//) 
ERROR EXIT FROM ASTATE07 *****//) 


Initialisation 


JERR = 0 

ARG = T - X0{L3,L2,L1> - PHASE < L3 , L2 , Ll ) 

IF ( PERIOD (L3 , L2 , Ll ) -TENM6 ) 996,996,11 

11 IF<PERI0D(L3,L2,L1)-TENP6> 13,12,12 

12 TOOD = ARG 
GO TO 14 

13 TMOD = DMQD (ARG, PERIOD (L3, L2, Ll ) ) 

***** Select Method of Defining Model Constants. ***** 

14 IF (B(L3,L2, Ll) ) 100,100,200 

***** Input Model Constants Directly. ***** 

100 AA = A(L3 , L2 , Ll) 

GO TO 204 

***** Define Model Constants from Geometrical Considerations. 

200 IF ( A ( L3 , L2 , Ll ) -TENM2 ) 996,201,201 

201 PT990 = ONE - TENM2 

IF (PT990-A(L3 , L2 , Ll ) ) 996,202,202 

202 IF (B (L3 , L2 , Ll ) -TENM2 ) 996,203,203 

203 ARG = TWO/DSQRT ( A (L3 , L2 , Ll ) ) - ONE 
AA = (PTSOO/B(L3,L2,L1))*DLOG(ARG) 

***** Function Evaluation ***** 

204 ARG = ONE/DCOSH (AA*TM0D) 

YY = Y0 (L3 , L2 , Ll ) + AA*C (L3 , L2 , Ll ) *ARG*ARG 
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non non 


GO TO 997 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE (8, 1071) 

C 

C ***** EXIT ***** 

C 

999 RETURN 
END 
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SUBROUTINE DSTATE (X, Y, JERR) 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the "ACTUAL" (i.e., the Reference) 
Plant Model including both Input and Output Signals from 
On-Line Test Data. 


***** Start SUBROUTINE DSTATE ***** 


***** The - [ LEYLAND . OPTIMNN ] TYPECQM . INC " File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2 ) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’ [LEYLAND. OPTIMNN] TYPECQM. INC’ 


INTEGER *4 JERR 

REAL *8 X(NL2DIM), Y (NL2DIM) 


1000 FORMAT (2H0 > 

1001 FORMAT (2H1 ) 

1071 FORMAT ( 4 2H0 ***** 

1072 FORMAT ( 4 1H0 ***** 

7011 FORMAT ( 4D2 0 . 7 ) 


NORMAL EXIT FROM DSTATE *****//) 
ERROR EXIT FROM DSTATE *****//) 


***** initialisation ***** 

***** Subroutine DSTATE has NOT been defined yet. 

IF (JERR) 996,997,996 

***** Error Exit ***** 

996 WRITE(6, 1072) 

WRITE (8, 1072) 

GO TO 999 


***** Normal Exit ***** 

997 CONTINUE 
C WRITE (6 , 1071) 

C WRITE(8, 1071) 

C 

q ***** EXIT ***** 

C 

999 RETURN 
SUD 
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ooooo oooooo oooo oooono 


SUBROUTINE TSTATE (X , Y, JERR) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the "ACTUAL" (i.e., the Reference) 
Plant Model including both Input and Output Signals from a 
Stored Data Table - 


***** start SUBROUTINE TSTATE ***** 


***** The ■ [IJE^LAND. OPTIMA File is Included here. 

This file contains the statements which establish and define 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ’ [LEYLAND. OPTIMNN] TYPECCM. INC' 


INTEGER* 4 JERR, LI, L2 
REAL* 8 X (NL2DIM) , Y (NL2DIM) 


1000 FORMAT (2H0 ) 

1001 FORMAT ( 2H1 ) 

1071 FORMAT (42H0 ***** 

1072 FORMAT (4 1H0 ***** 

1073 FORMAT (66H0 ***** 

1R OF TABLE/ 1 IX, 66H 


NORMAL EXIT FROM TSTATE *****//) 

ERROR EXIT FROM TSTATE *****//) 

ERROR EXIT FROM TSTATE WHEN TOE MAXIMUM NUMBE 
VALUES DEFINED BY "TBLMAX" IS EXCEEDED. 

//) 


7011 FORMAT { 4D20 . 7 ) 


***** Initialisation ***** 

JERR = 0 
LTBL = I STEP 

IF (LTBL-TBIMAX) 10, 10, 995 
10 T = TTBL(LTBL) 

***** Evaluate for Both the Plant Input and Plant Output Vectors 
DO 310 Ll=l , 2 

***** Evaluate for Each Vector Elenent ***** 

IF (Ll-2) 373, 371, 996 

371 IF (NNID) 372, 372, 373 

372 CALL STATENN (X , Y , JERR ) 

IF (JERR .NE. 0) GO TO 996 
GO TO 310 

373 DO 210 L2=l ,NL2 (LI ) 

GO TO (201,202) , LI 

201 X (L2 ) = XTBL (L2 , LTBL ) 

GO TO 203 

202 Y(L2) = YTBL (L2 , LTBL) 

203 IF (JERR) 996,210,996 

210 CONTINUE 
310 CXMTINUE 

***** Error Exit when the Maximum Number of Table Values defined 
by -TBLMAX" is Exceeded. ***** 
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c 

GO TO 997 

995 JERR = 1 
WRITE (6, 1073 ) 

WRITE (8, 1073) 

GO TO 999 

***** Error Exit ***** 

996 WRITE (6, 1072) 

WRITE (8, 1072) 

GO TO 999 

***** Normal Exit ***** 

997 CONTINUE 

C WRITE (6, 1071) 

C WRITE {8, 1071) 

C 

q ***** exit ***** 

c 

999 RETURN 
END 
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SUBROUTINE USTATE ( X , Y , JERR ) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***** This subroutine Defines the "ACTUAL" (i.e., the Reference) 
Plant Model including both Input and Output Signals from a 
User Supplied Model. 


***** Start SUBROUTINE USTATE ***** 


***** The " [LEYLAND.OPTIMNN1TYPECOM. INC" File is Included here. 

This file contains the statements which establish and define: 
1) the Principal COMMON Blocks; 2) the Data TYPE of the 
Principal Parameters, Arrays, and Vectors; and 3) the 
DIMENSION of the Principal Arrays and Vectors of the 
OPTIMNN System. 

INCLUDE ' [ LEYLAND. OPTIMNN JTYPECCM. INC’ 


INTEGER* 4 JERR 


C 

REAL*8 X(NL2DIM), Y (NL2DIM) 

C 

C 

1000 FORMAT <2H0 ) 

1001 FORMAT (2H1 ) 

1071 FORMAT (42H0 ***** NORMAL EXIT FROM USTATE *****//) 

1072 FORMAT (41H0 ***** ERROR EXIT FROM USTATE *****//) 

7011 FORMAT (4D20. 7) 

C 

C 

C ***** Initialisation ***** 

C 

C ***** Subroutine USTATE has NOT been defined yet. 

C 


IF (JERR) 996,997,996 
C 

C ***** Error Exit ***** 

C 

996 WRITE ( 6 , 1072) 

WRITE (8, 1072) 

GO TO 999 

C 

C ***** Normal Exit ***** 

C 

997 CONTINUE 

C WRITE ( 6 , 1071 ) 

C WRITE (8 , 1071 ) 

C 

c ***** EXIT ***** 

C 

999 RETURN 
END 
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